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AERUX f02/2b/?7 


s 


c 


!P O 

ig 

"I 

a ^ 
«6S 


100 

200 

lOO 

400 

soo 

600 

TOO 

800 

900 

1000 

noo 

1200 

1300 

1400 

1600 
1700 
1 800 
1900 
2000 
2100 
2200 
2 300 
2400 
2 SOO 
2600 
2 too 
2800 
2900 
3000 
3100 
3200 
3300 
3400 
3500 
3600 
3700 
3800 


C 

C 

c 

c 


main DRIVtR PROGRAM 

NEW VERSION CREATfO ON 6/10/76 

COMMON /WING/ ARW»SPANWfSWING,TRW,cROOT♦CTI^^.CKLJS»W♦TCRH,TC^W,TCWP.- 

lTCW#SOW*SWPW*SWPWlC*XOMACfCSWOt*l»6XTf XEXT f FLfcX* TUIE*MNT*t)£LX 

COMMON /DISPLV/ L0ISP(6).ODlSP(4),linE(l4J,PPLOT 

COMMON /PWING/ CtN(20*20),CDW(20i20)fCLWU{20t20)»CLWL(20f20)* • 

IC06EP ( 20»30+-*^C1.05*01'< 20*301 ♦C4-ALK20f 20 ) *CMU< 20 > *C00( 20 ) ♦ CLM* CL U»« 
2Dl.MH,CPLIMfCP2fCPNXS 
COMMON /fTOTaL/ cL<20f20l,CnL(20i20> 

COMMON /NOSE/ 80mAX*ASCCT*AP1-A«*XLN*CLNI20»20)»CON(20.20U 

1 CNNOSl ( 20*20) *XLB*CLOB( 20) tCMClB( 20) ♦Cn0B( 20 ) 

COMMON /tail > SHOB*SMOS****OHOR»yHOR *CLM« 20*2u) »CL)H( 20*20) tbOHiAKHt* 

COMMON /FLOW/ SMN( 20) tNSMNfRNLUC I 20 ) » 16A* I6Hf 16C » Z ( 20f 20 ) f AMC 
COMMON /AFOIL/ ALELJ*XCO«SMK*ROC 

COMMON /tRI**/ Cl I *CLT * 1 *X *LL* ALPOAfOCHTR ( 20* 20 ) *DAL18 < 20» 20 ) » ' 

ICM(20*20)*OCLTR(20*20»*CMCL(20.20),FTRIM.XC*CBARW.YBAR*XCG*LLALFA,. 

2lT*t>feXP*Lfc*LT*tO* I 78IM( 20) *BtTAM*SA*CA*CfcXN* JXCU* ULkX* ICUU 

COMMON /fROUT/ STN( 20*2® 1 *OELH( 20»20 ) *0»*A!»H( 20*20 ) *L»MAiHK ( 20* 20 ) 

dimension F0ILI0( 10) *TRIM10(4) *XC0ID(4) * H EX10(4) *C0UI0(4) *X(4) ♦ . 

ICl 00(20*20) *C0T0T< 20, 20) 

integer ALELJ*I*001^R*R^C01 *ALfeLJI t 

REAl MNARW,MXARW* 1NARW*MNTRW,MX1RW* INTRW*MNbOW,MXSOW*lNiL)W*MNALF«' 

IMXALE,INALE*MNXC0*M*XC0*INXC0,LE*1 T*IT 
OAfA E0IL10/4MSMAR*6HP ,4H230* »4H00XX*4H6 SE » 4HK II S*4 mSJ AB * 4M 
1 *4HRnC •AHSPFt/,BLANK/<»H / 
data TR1MI0/4HUNTR*AH1M) ,4HfRlM»4HMEn)/ 

DATA XCniD/4HfONS*6HTANT,4HVARI *4HABLE/ 

DATA FLEX1D/4HSI FN*4H0ER * 4HKE-E * 4MNTRY/ 

DATA COO|0/4HCDO«,4HW,0 ,4HC0rj ,4HDFF / 

PAIA BA0/57*29578/ , ... 

NAMFLlSl /ARRAYS/ NSMN,SMN* ItDO*CD(J*CMU»LUJB*CUOB*CMUB* 1 TR I*< 

namelist /WINGIN/ ALEI J,MNAR *<* MXAR w * ( NAR W *MN 1 R W , MXTKW , 1 N I H W , , 

1 MX Sow, INS0W*CLU*SNING*SPANW*CRUUI ,Cl IP*)LKH*TC |w,X(JMAC *CBAK»«*RLiL* 
2SEXI,XEXT«IF( EX 

NAMElI^^ /NOSFIN/ (Ji)MAX * XI N f XLli , Xf 



AtROX 
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ro 


3900 
AOOO 
4100 
4200 
4300 
4400 
4300 
4600 
4700 
4800 
4900 
5000 C 
5100 C 
5?00 C 
5300 C 
5400 C 
5500 C 
5600 C 
5f00 C 
5800 C 
5900 C 
6000 ( 
6100 C. 
6200 C 
6300 C 
6400 C 
6500 C 
6600 C 
6700 C 
6800 C 
6900 C 
7000 C 

rioo c 
f 200 c 

7 300 C 
7400 r 
7500 
7600 


namflist /tah in/ 

NAMFIIST /FLUWIN/ 
lALTV 

namelist /FACTOR/ 
namflist /OUTPUT/ 
on 20 JJ»1#20 

00 20 II»lf20 
OWASh( 1 It 
20 OELH( IltJJIaO* 

DO 30 II»l*14 
30 TITl El in-BLANK 


5H0R f XQHOR f ARM t SOH t V HUH t 

MN6LFfMXALEtlNALF*MNXC0t 


I T 

MXXCOt INXCOt lXCn*5>HKt 


FTOTL*FTOTOtFf M 

IDATAtlTABLtlPLOTt 


PPLOl tLDlSPfOOiSP 


ITRIM-OI calculates UNTRIMMEO 

iTRiM.ii calculates untrimmeu 

L01SPllI»l* nor* TftlL LIET 
LniSPC2I«ll NOSE 7 

LniSPl3)«II LOviER wlN(* 7 
Ld!SPI4)»U upper wInG 7 
L0ISRI5l«ll total WInO I 
Loisp(6»»ii totai aircraft 

001SP(l»«l» NOSE ORAG 

00|SP(2I»II SEPARATION 9 

ooispi3>»ii total wing 
00lSP(4)*n total aircraft 


characteristics 

AMO trimmed characteristics 

coeff. is plotted 

7 7 « 

T 7 i 

7 11 

7 7 2 

111 

COEFFICIENT IS PIUITEU 
I 7 

P 7 7 7 

? 7 7 


LTABI ■ I » a table of the geometry inputs is printed 
0 : NO table is PRINIEP) 


LSTOUT ■ i; AN OUTPUT 
• 01 NO OUTPUT 


listing UF force coefficients is PRIIOOCEL) 
iarlf is produced 


RFA»> (5tl20) TlTlF 
RFAfi I 5t ARRAYS I 
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5^ 

E 


CO 


7700 

7800 

7900 

8000 

8100 

8200 

8300 

8400 

8800 

8600 

8700 

8800 

8900 

9000 

9100 

9200 

9300 

9400 

9500 

9600 

9700 

9800 

9900 

10000 

10100 

10200 

10300 

10400 

10500 

10600 

10700 

10800 

10900 

11000 

11100 

11200 

11300 

11400 


C 

C 

C 


C 


READ |5tWlNGIN) 
REAU (5fN0SE|N) 
READ (5«TAU|M) 

read CS.FLOWIN) 
READ (5*FACT0R» 
READ <5*0UTPUT1 
CALL AT62 lALTV.X) 


CLOS.CLO 

T«AI3)Ai«A 
IF IT.GE,225*> 
IF |T.L7.225,» 
DO 40 I*1*NSMN 
V«SHN( n*X(4) 


V|SC»2*2^C-8*S0RT 

V|SC»«8038E*94| 


RNLocm»x<n*v/visc 


40 GOHTIMUF 

I IA»INT (MNARW4100*^*Ol ) 
I18«|nT<M*ARW*100.4*01) 
lie* 1*^7 ( |NARW*100#^*01 ) 
1.3A«INTImN>OW*10O0*^*51 

I3B»fNf (HXSQM*10 o0.^*5) 

|K«|W7UN50W*1000* + #5» 

1 4 A* |NT (mNTRW*1000«* *51 
I4B«INn^*7Rw41000* + *5* 
IAC«tF)T( |NTRR*1000***5) 
I5A«INT<HNXC041000*^.01 > 
I5H«INT(MXXCOAIOoO*+*01 1 
|5C»|Nn |NX€0*1000.*,ni ) 
16A«|NT<mNALE*100«^*01) 

I 68* INT (MXaLF*100*^*01 ) 
I6C«|N7nNAlF*100***0l ) 
tPAGE«l 
NPLOT-l 


INC ASP7CT RATIO-ARW 


on liO Il»IlAtll8*llC 
ARWbFLDAT ( 1 1 ) /10o« 


T**3)/( r4l98,6) 
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IISOO 
11600 
11700 
11 800 
11900 
12000 
12100 
12200 
12.100 
12400 
12500 
12600 
12700 
12800 
12000 
13000 
13100 
13200 
13300 
^ 13400 

13500 
13600 
13700 
13800 
13900 
14000 
14100 
14200 
14300 
14400 
14500 
14600 
14700 
14800 
14900 
15000 
15100 
15200 


C«*4«*MING SWEEP OF OUaRIFK CHQR0-«SQW 
C 

OU llO I3*13A«I3B*13C 
$QW«fLUAT( 13)/10oO. 

IF (SOW.GT.89.95) S<JW»8‘i*95 
SWFW«SOW/RAO 

IF (SWPW«EQ«0.) SWPW«0,01 
C 

€44AAAATaPER RAUOaTRW 

C 

00 no I4«I4A«I4B*IAC 
TRW«F10AT{ I4)/10oO* 

IF (TRW.GT.U) TrW*1, 

CALL GEOMl 
C 

C69***«CH0R0WISL shock LOCATION.XCU 

c 

DO no IS*1 Sa*15b*1^C 
kco«float( m/iooo. 

IF IXCD.Gl*!.! XCl'"l. 

CALL AXE 
ISMNsl 

00 100 lalfWSHN 
IF (itahl*eo«o) go To 50 
ALELJI«AL^LJ42«1 
inTRIM»(ITRlMT lUl )*2-l 
IDXr.O"f IXC0*1 1*2.1 
I0FlEX«(lFLEXtl)*2«l 
IOCDO»( ICOOtl 1*2.1 
RN106*RNL0C( I 1/I.F6 

WRITE (6*1301 title* IPaGE*AIELJ»FOILID( ALFLJI 1 t FUI L lU ( Al.bL J I ♦ 1 ) 
WRITE (6*l4ol ARW*CDU( I 1 *xCG*ARH*SHN( I 1 *SW1N&*CLU*xL6*SHUK* 

1 |7R|I4( I 1 *TRIMI0( iOTRIH) •TR|M1U( IUTRIM«1 1 
WRITE (6*1501 SpANW*CMo(I)*eUHAX*XoHQR*IXCO*XCOIO(lDXCin« XCOIU« 
1 ( lOXcn*! 1*CRU0 T*sFXT*XLW*YH()R* ICUO*CDOIO( lOCOOl *COOIO( lOCOlHl ) 
write (6*1601 CTlP*XBXT*ASECT*SOH,IFLEX*H EXID( lOFLtX)* 

IFLFXmi tOFLEX*ll*TRW*XOHAC*APl AN* |T*ALTV 
WRITE (6*1701 SUWtC8ARWtCLUB( 1 1 *LT *RNl06*SWpWLk*SHK*C»UU( I I *LE*AHC 


t 
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15300 

15400 

15500 

15600 

15700 

15800 

15900 

16000 

14100 

16200 

16300 

16400 

16500 

16600 

16700 

16800 

16900 


50 


write (6fl80) TCrW*XCO#CMO0( I > *TCTW 
IF linATA*Eo,0> GO TO 70 
IF I |TA8t*<t0*0) WRMi |6#190) IRAGE 
WRITE (6t2oO) 

00 60 |6»l6*f 168# I6C 

K«( 16-16A)/I6C41 

COTOTI 1 »K>»C0L< IfK l+CDO* I ) 

CLOO< I *K )»CL (I I /COfOT ( I ) 


JilTrt6?21o!*iLj2AlcUl»K).CUlOl(l*K),CLW(l,K>.C0W(IjR).CLWU(I»R) 


60 


17000 C. 

• • • • 

17100 

70 

17200 


47300 

1 

17400 


17500 


17600 


17700 


17800 


17900 


18000 


18100 

] 

18200 

80 

18300 

90 

18400 


18500 


18600 


18700 

100 

18800 


18900 


19000 



UoS€;ri;KUcl:ALf;i.M#2(UK)*CW(l#Kl#CtOO(I,M*UtLH(I#K 

3DALTR( ItK) *AI.FTR< 1 #K ) 

CONT I RUE 

IF lITRUm.fO.Ol 60 TO 70 
WRITE (6«22;;) Umn 
|SMN»ISMN41 

IF (I0ATA*NE.0) write (6#230» 


COkFFICItNTS 

• •U.ANOaFCMtfcOw. ^ - 

TltLEtSOW#PTOTL»ITtFTnTO»SRN( HtFCM# 


DO 80 l6»I6Af I6B, I6C 
K«l I6»I6A)/I6C«1 
Al PHA>FL0AT ( I6I/100* 

CU IfRI'CLC I#R)AFTOTt 
CDLn*R)*C0L(I*K)*PTOTO 
CMlI#M-CMCI.K)*FrM 

IF (1TABL*NE#0) write |6t2A0» 
IALFTrI 1 #Kl 
CUNT INUF 

IF ( ITRIM( n •NE.O) on TO 100 
IF CiPtOT.EO.n CALL PtOT (Nl»tOT) 
|PAGF«1PAGE^1 
NPLOf»NPtOT^l 

continue 

IE niRlMUWNE.p 00 TO 

IF IIPLOT.EO.I) CAUL -PLOT (NPLOM 

IPA(iE»IPAGEtl 


ALPHA f CL ( I » »CDU I»K ) #CH(I > » 


t 
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19100 
19200 
19100 
19400 < 

19S00 
19600 
19700 
19600 
19900 
20000 
20100 
20200 
20)00 
20400 
20600 
20600 
20700 
20800 
20900 
21000 
21100 
21200 
21300 
21400 
21600 
21600 
21700 
21800 
21900 
22000 
22100 
22200 
22)00 
22400 
22600 
22600 
22700 
22800 


NPL07»NPL0T4l 

no CONIINUP 
STOP 


120 fORWAT 116441 DATA I , 1 4A4* T 129 1 1 2/// 7 2S« 4HW |N0 1 - 

,. iL .. ui . is«aoN p * K .Htte» s // . 

IAO ^ PORMAT ^ IiU ^ HARr ' • * t ^^ sIsH ^ MACM / T4I 

1F7.),)H M.T82,8h3KH * • .F7,3,. 

29MSWING • *F6,1,6M so • 3T«T108*6HITrIM • ,Ilf2H (f2A4) 

3)H FTfT82.eMSM0R ■ fF6*lf6M SO 7T*TIU»*PH» r»^ ,f5, 3 , 166 , 

J80 format (T 6,9MS^AN*J • 3H F T ♦ T I08t 8H 1 XCO • til* 

18HBDMAX . .F6.)t)H PT.T 82.8MXgHUK • *F6.2* 

18HAStrT • •P6*2#6H • ,Fb.4* T28,8HXyMAr • * • 

fTl}U»«MiFtAl>»’« *f6.l^H SO FT,l82.8Wlt ■ ♦F6.2*4M 060- 

*^^I^!f 4.2I4H Ok&,T28.6HCBAKW • ,F6,3f3H FI.T66* - 


’*’?■! ntr - T?8«8HCBAKW • *F6,3f3H Fl»166* 

170 format ,f 6,2»3H F»t7 108fHMRNLUC ■ 

27MF6 FT,T108.8HAML - »F5.2- 

3T56f8MC00« ■ fF6.^* T82*8HLf fro,<f 

4,4H 0FC7 t.fPa.bMXCt) • fF6,3*9H OF CMURD»T66t 

180 format (T4t9HTCRW ■ #F6.4* f ^8tOHXl.l) 

' 18HCH0B - ,F6.4/Tl08,T4.9HTfTW . ,F6.4) 

190 format (IMlf T129,I2) 1 ,• 1 naT*; T ahI fc/// Mt I 3 HaI.FHa CLTU^ . 

n * tF 6 . 3 . lX , F 6 . l . lX * f 5 , 2 * lX . F 4 . l ) 

220 format n66flW(f lAwrujMtTuv oaT At T64» 7HFACTU«S///T2i « 


I 
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22900 

23000 

23100 

23200 

23300 

23A00 


2P6»2f8H OCCRtCSf T50*10MFT0T0 • tF6*3/T21 *»HSMN • »F6»3t^H MACH 

3#T50*10MFCM • f F6*3/T21*8HXC0 • »F5*3#9H OF CHORO*////T32* 

422HC0RRCCTK0 CO*f FlCIfcWlSyW I i 7*!>WAURHA» 1 29t 3HCLT0Tt l4l *5WCDf 01 • 

9T5A,2HCHtT63t5HAlFTR/) 

240 format (l7XtF4*lf2(4X*F8«4)f3**F7»3f6X*F4*l) 
fNO 
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100 

200 

300 

♦00 

300 

600 

700 

flOO 

900 

1000 

1100 

1200 

1300 

1400 

ISOO 

1600 

1700 

1800 

1900 

2000 

2)00 

2200 

2)00 

2400 

250C 

2600 

2700 

2800 

2900 

3000 

3100 

3200 

3300 

3400 

3500 

3600 

3700 

3800 


SUBROUTINE 4T62 (ZFIfANSI 

DIMENSION MTl8»fTH|8ltTH0(8)fRH|»|*ANS(4) iPZ( 13) 

DIMENSION lTll3)*I2(l3»tTlO(13)*M2I13l »All3) tBU3) 
dimension WA(l3»,WB(13JtWC(13)tni(l3)t02< 13) f03( 13) 

DATA HT/0.tll,#20.t32*f47,t52,t6l,t79,/ 

data TH/288*15*2l6»65f 2l6*65f 228 *65* 270*65 f270 *65* 252»65* 18U*65/ 
DATA THD/*6*5f0** 1 **2«8*0*t*2**-4*tO*/ 

data Ph/101325*, 22632*0638*5414*88855*868, 018647, 110*906298* • 

169*0009367*18*2100724* 1 *03771164/ 

DATA zT/90**l0O*,ll0**l20**l50**160**17O**i90*»230**300**400**500** 

A* T 1/180*65* 210*65*280*65 *360*65 *960,65* 1 1 10* 65 *1210,65* 1350 *65« 
1*1550,65* 1830*65*2160*65,2420*65*2590*65/ 
data I JO/3, ,5*, 10**20**15**10, ,7* ,5**4* ,3*3*2*6, 1*7 *1*1/ 
data Hl/a8*7433565*98^509829*lO»*l28578*U7,776280*l46,64l401* 

Il56*07090l*l65*57ll87*l84*484657*22l*966870*286.476269*376.3l2415»» 

2463 , 52609 7 * 548 * 2300 1 4/ 

OAtA a/,99999916,. 99999897* *99999877*. 99999832 *.999997 76*. 99999746- 
1 , * 99999698 • * 99999592 , *999993^8 * *99998378 , .99998 1 3 1 * ,9999 7 1 96 , 

data 8/ -OOOl5T34766*,OOOl5T34963*,OOOl5735l40f *00015736513* • 

1*00015735887, *0001 5736074, *0001 5 736355* *0001 573691 5. *000 15 737443* • 

2*000157939532* *000l574l4oi * *00015743271 * *00015 745140/ 

data WA/21*998808*l5*798995*3l*044527,40*387675*29*5J8575, • 

1 32 * 26897 1 * 27 * 789444 ,32*1 66670 * 30*241635,34*561172*36*099504* 

238* 195672*8*258073/ 

DATA « 8 /* 15479092* *27878720* *0015957013* •*15412343, -*0094687678* • 

1 - *0435987 1 5 **0091016009 ••*036974443, .,020235026 *-*04903 1942* • 

2- .056723605, -*065108273* *0013503901/ 

DATA WC/ — 8599494E-3*-*l47993lE-2,-*2X99696E-3**428860U-3, 
1.,5332209F-4, *5333399E-4*-*lU16669t-3* * 1 958587fc-4* -* 16804/ 1 1-4 * • 

2*3ll9065E-4**4080523E-4**491899E-4*-*6l92)24E-5/ 
data Ol/*0017834765*,0010654122,*00053055610,,00026454351, • 

1*00035360997, *00053348782* *00076836496,. 0010889831, *0013 783559* 

2*0016975137, ,0022189463* ,003 7023997 * ,006 7578 185/ 

DATA 02/-ll*28l753*-6,70989l4*-3*3278396*-l.65463B8*-2*2*71667* • 

I -3,3643151 •-4*8850055,.7,008i025*.8,98 1016/, -I l,23b530*-15,l224/3*- 

2,520411,-59,311259/ 


AT62S 
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3900 

4000 

4100 

4200 

4300 

4400 

4500 

4600 

4700 

4R00 

4900 

5000 

5100 

5200 

5300 

5400 

5500 

5600 

5700 

5800 

5900 

6000 

6100 

6200 

6300 

4400 

6500 

6600 

6700 

6800 

6900 

7000 

7100 

7200 

7»00 

7400 

7500 

7600 


DATA 03/.0l6920782f.02432905if.039545102f 057409044. •016199137, 

1 ,0093014845. *0059339235. .0037645169. ,0026065966. ,0018120459. 

2.001 1923023. ,00064736059. ,00033627561/ ,uq.i 

data PZ/, 1643801 2* .030075034. .00^3545270. .0025216927. ,000506178 0. 

1, 00036943532., 00027926462. •00016852498. ,696053 ^t-4. , I 883878fc -4. 

2.4030432C-5..l095696E-5,.345626lk-6/ 

ALT«zFT*0.3048 

Z-ALT/1000. 

IF |Z*L7."5,I 1«-5. 

IF (Z.GT,700.) Z«700, 

IF (Z .07,90,) GO 70 80 
0FN«1 ,040.000I 5733831*2 


M»Z/OFN 

GMW«28,9644 

IF IH,GE.47,) go 70 30 

IF IH.GE.20.) go 70 20 

J*1 

IF (H.GF.II,) J-2 
GO 70 50 
20 J*3 

If iH.Gf.A^.l J*4 
GO To 50 

30 IF (H,GF..61,) go To 40 
J*5 

If (H.GE.52.) J*6 
GO To 50 
40 J*7 

IF (H,GE«79,) J«S 
50 Tm.ThC J)*TM0<J)*(H-H7U» ) 

|F (IH0(3).E0,0, ) GO TO 60 

PI 00«-34,163195*aL 0G(TM/7M( jn/TH0( J) 


GO TO 70 

60 PI 0G*-34.163195*(H-MT(J) )/TM 

70 PB*PM|J» 

GO To 140 

80 IF (Z,L1,170,) go TI) 1)0 

IF IZ,I.T,300,) no TO 100 

IF (Z.LT.500.) Gn TO 9 q 


AT62» 


t02/25/7T 12l03ti» 


7700 


J«l) 


7800 


17 <2,LT. 600,1 

J«12 

7800 


60 TO 1)0 


8000 

90 

J*ll 


8100 


IF (7,LT,^00.) 

JalO 

8200 


GO TO 1)0 


8)00 

100 

J«9 


8400 


IF U.LT,2)0,) 

Ja8 

8800 


IF <I,LT,190,1 

J»7 

8600 


on TO Do 


8700 

110 

IF |{.tT,120,) 

GO TO 120 

8800 


«l«6 


8800 


IF U*tl,l60,) 

Jmb 

9000 


IF (Z,LT,1S0,I 

JaA 

9100 


GO TO DO 


9200 

120 

J«) 


9)00 


IF IZ,LT,110,1 

Ja2 

9400 


IF (Z#LT,100,1 

Ja 1 

9800 

1)0 

GMMaUAl J)4Z*9CIJ) 1 

9600 


TMaTZI J»4*Z0( JD(Z-ZT< JU 

9700 


06N»AD)4>Z*8D1 

9800 


M«Z/OFN 


9900 


DFLTAHaH«HZf J) 


loooo 


PLOCaOl C J i •oet T f J > C 1 «0^03 < J > ♦Ofcl T AH ) 

10100 


pHaPZI J) 


10200 

140 

PaPBAFXPfPLOG) 


lOiOO 


ANSI 1 >«6, /S9448F.64P/TM 

10400 


ANSI 2 1 aPPU, 0208886)4 

10800 


ANSI ))-GMW4TM/2«, 9644 

10600 


ANSI 41 ■894,80046 

10700 


A«G1»4)25,7)899*th 

lueoo 


IF IZFT.Ll,)00000« 1 ANSI6)»SURT 1 A«i,l ) 

10900 


RFlUpN 


11000 


tNO 
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too 
200 
iOO 
400 
500 
600 
700 
800 
900 
1000 
1100 
1200 
1)00 
1400 
1500 
1600 
1700 
1800 
l<»00 
2000 
2100 
2200 
2300 
2400 
2500 
2600 
2700 
2800 
2900 
3000 
3100 
3200 
3300 
3400 
3500 
3600 
3 700 
3800 


St)B80UTINE GtOMl 


viBMUN created iw 5yi«/^<> 


co«*oN /wiNo/ 

' JnHiSi' /? toi/ i«*il 20 1 .NSmN .»N l OC l 20 ) . 1 64 . 1 »H , 1 6C . 2 ( 20 . 20 1 . AHC 

J?i22n2 /«ii/ CLltCL{,I."V<*LI>H»,0C0te(20.20I.D»lt«(20.2O), 

REAL LE*il 

integer I 

pi-3.1415927 
IF ( SNINGalO.O. ) 

IF (SPANM.L7*0«) 

IF (CROOT.LF.O. ) 

IF ICTlP.tE.O.I 
cbi-cphotfctip 

IF I xomac»l^ »D* ^ XWMAC»CR00T/4.fTBAR _A1(S,, 

IF IXCD*tE.O.) XcG»XONAC 

S^pSu^ATiNtTAN^S»^PW)Ml.-T«^‘'‘n.^rRW)*ARH)) 
A.CI.*2.**RW»/(3.*M.*T'*W) ) 

B-TC8N^A*f1RW*TCTW-KPW) 

ICW«1.5*M*( 1 .fIRW W ( • 

TCUPsiCU/COEISNpW) 

10 lf-xomcir-xcg 

IT-XOMOR-XQHAC 
fo«xchac«xcg 

|F < S"lNC«FO.O, 1 GO TO 20 
FI FX.SFXT23WING4-7 


OU TO 10 

SPAnMsSQRT ( 6»<lNG4ARN» 
C«t10l«2,*SwlN0/ ( ( l.FTRWjFbPANW) 

^tip.trmacrodt 


&E0M1S 
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B900 


4000 


A 100 


4200 


4)00 


4400 


4500 


4600 


4700 

20 

4800 


4900 


5000 

)0 

5100 


5200 


5100 



F0ELX1»ITAN(SMPW)-< U-TRW»/<ARW*<U*TRW» ) ) 

BnS*BDMAX/SPANW 

tbxbTRW/I 

VCB«SPANW*( 1 *♦ *RW-<f •♦TRW*TKW )/(6»*(1#-TRW*TRW)) 
_ . r M >uu_Mni« A V tAi 1 _ArBv«7.9TRX^TRXt / 1«*TI 


OPtVX-VCX-VCB 
0ELX«0ELVX*F0ELX1 
IF (ABS(BUMAX)»l.T**OOn GO TO 30 
A<lECT ■ I P 1 ABOMAx *#2 ) / 4* 

APLAN* • 7AXLN«BUMaX 




return 

aSeCTsO* 

aplan>o« 
Rfc turn 
fMO 


AXES 


12 l 03|57 


ss 

81 



too 

200 C 
300 C 
400 C 
500 
600 
700 
BOO 
900 
1000 
1100 
1200 
1300 
1400 
1500 
1600 
1700 
IBOO 
1900 
2000 
2100 
2200 
2300 
2400 
2500 
2600 
2700 
2000 
2900 
3000 
3100 
3200 
3.300 
3400 
3500 
3600 
3700 
3 B 00 


SUBROIITINE AXE 


NEM VCRSIUM created ON 6/15/ f6 


COMMON /WING/ ARW»SPANW*SWlNG*IRH»CROOTtCT IPfCKOSW* TCRWf TCTWf 

1 TCWaSOWv&WPMt SWPwUE »X 0 MAC*CSWUC t SEXT ♦XEXI»H-kX»TOlF»EINT*DfeLX 

COMMON /EWING/ ClWl ( 20 , 20 ) tCOW 1 ( 20, 20 J ’Cl-WDU °inS’j 20 ) * CLM^CLMU 

lCOSEP( 20 t 20 ) *CL 0 S» 0 L 1 ( 20 t 20 ) *CLALF ( 20 t 20 ) tC^Oc/O) » COO ( 20 ) ♦CLM*CLMU 

2 *OtMu»CPLlMfCP 2 *CP»^*S 
COMMON /FTOTAL/ C* < * 0 t 20 ) »COL ( 20 f 20 ) 

COMMON /NOSt/ BDMAXtASE^T*APLANfXLNtCl-N( 20 » 20 ) »C 0 N( 20 « 20 ) ♦ 
ICMN 0 SE( 20 * 20 ) ♦XLB*CLOB( 2 o) tCM 0 B( 20 ) *C 008 i 20 ) .rh. 

COMMON /tail; SHoR t SHOSW t AOHOR f VHOR ♦CLH( 20 » 20 l*C 0 H( 20 » 20 )»SWHfARM. 

^COMMON /FLOW/ SMn120)*nSMN*RNLOC 120) t 16A* I6B* I6C*1(20*20) *AMC 

IZX ;^^?i^'cL^!cL?!pijril:'ALU,UCDTR(20,20)^ 

KM( 20 , 2 o!tDCLTR( 20 f 20 ),CMCL( 20 , 20 ),FrRlM,XC.CBARW*V 8 AR.XCG»CLAU-A, 

?lTfnEXPtLEtLTtEOtnRIN( 2 O)* 0 blAMfSA*CAfCfcXN,lXCOtIFLkX»lLUU 

integer z*alelj 

BEAL MA€>«*LE^I I ^ 

data pi ,RA 0 » tPSf GAM 2 / 3 , 141 57 « 29578 » * 001 * 1 , 4285717 ' 

FEXP«0,7B 
AMC»40,0 
AMCR*AMC/RAD 
pIARW»pI«ARW 
Cl ALFA>2*«P1/RAD 
no 790 laltNEMN 


on 720 I6*16A* I6Bf IbC 
ALPHA*FL0AT( I61/100, 
ALPHASbALRHA 
X»( I6-I6A)/I6C41 
MACH«SMN( I ) 

smnSo»mach**2 
SMNSB*! ,/SMNSO 
BETAM«S0RT(AHS(1,«SMNS0) ) 
C 05 EP ( 1 
C 10 »C 10 S 




AXfcS »02/25/77 )2i03|»7 

3900 ClWaO* 

9000 COLW«o* 

A4O0 CtWUsO* 

9?00 CLML-O* 

9210 AR0«*LPHA/RA0 

9220 SAsSIN(ARD) 

9230 CAaCnSIARD) 

9240 TA*Tan(ARO) 

9500 ZU«K)*1 

9400 IF (SWING*E0«0») CLAUFA • 0, 

4500 IF (SWING«E0«0* ) GO TO 980 

9600 C0CAM«CI.U/20, 

9700 IF (iroo.ko.n CDCAM«2,*cL0*(sgR I (cno< n/(Pi*Akw) ) ) 

9800 IF (AtPHA»r»l,EPS.OR«CLO*GT»0*) GU 10 20 

9900 6A«C«O01 

5000 CA«1«0 

5100 TAaO.OOl 

5200 on To 680 

5700 20 CIS0«SA**4,+CA*Ca*2**SA*SA*3**SA*SA*CA4(:a/2. 

5800 FIS0«1«-»A45A/2, 

5900 T^IU-(U5i5^«69546MM60l 

9000 IF (TAN*LC«0«0) tAMsq.O 

9100 AMT«(SORT( *AM) )/mACH 

9200 AL9R«0« 

9300 AL9RM1«0. 

9400 IF (ARW,L1«2*0> GO TO 90 

9500 C 

9600 C CAtCUlATE ANGLE oF ATTaCR FOR LEADING EDGE LIMIT 

9700 C 

9800 C ALEl«/ a 1 SHARP AND NEAR SHARP AIRFUILS 

9900 C ALELJ a 2 239*Xx AND O^XX AlRFUllS 

7000 C ALELJ a 3 6 SER|ES AIrFoilS 

7100 C AIELJ a 4 FLAT aIRFOILS WITH RQUmoED LEADING EDGE 

7200 C AIELJ a 5 LEADING FOGE RADIUS TU CHORD RA»1() SRECIFIEU 

7300 C 

7400 CO Ui (30«40t50f60« 70)» AULJ 

7500 30 GO To 90 

7600 40 OTCal.^l ,35/ICWP 


AXE» 
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7700 

7800 

7900 

8000 

8100 

8200 

8300 

8400 

8500 

8600 

8700 

8800 

8900 

9000 

9100 

9200 

9300 

9400 

9500 

9600 

9700 

9800 
9900 
10000 
lOlOO 
10200 
10300 
IO4OO 
10500 
10600 
1 0700 
10800 
10900 
1 1000 
11100 
11200 
11300 
11400 


C 

C 

C 

C 

C 

C 

c 

c 

c 

c 


ALtR»AMT/OTC 

ALERM1«0,913/DTC 

00 TO ^ 

50 0TC"U^U68/TCWP 
ALE8*AMT/DTC 
ALERM1»0,913/DTC 
60 T(i 80 

60 DTC*1,*2»/50RT(TcWP) 

At ER«AMT/UfC 

At ERMl»0,9l»/otC 
60 TO 80 

70 PROC«SORT(2./ROC) 

ALER«AHT/( l.PPROC> 

80 IF (ALER.IT, 0,1 a(.ER«0. 

IP IAL8RMU6T.0.1 ALERMl»0, 

DEFINITION OF FLOW CONDITIONS 

1 • I incompressible 

Z • 2 COHPRESSIBIE 

2 • 3 LEA0IN6 eo^E MACN LIMITED 

Z • 4 SURFACE NACH limited 

Z • 5 SUPERSONIC SMARP LEADING EDGE* ATTACHED SMUCR 

Z • 6 SUPERSONIC leading EDGE* DETACHED ^HDCK 

90 CONTINUE 

sqar»ard/amcr 
imsqar.gt.u) Soar*!* 

BOS>BDmAX/S^AnW 
BOSOal |••B0S)**2 

PINl«(l.4( l.-s6ARl**2.*8nS)*A2. 

IF (NACH.Lfc.UI GO TO lOO 

FIHT.(U^( 1*-S«AR*( J .4-MAf H)/0.4)4*2*B0S)**2 
IF (nACH.GT.I.A) FINI*( 1.*B0S>9*2 
100 SINT«(2,4MaCM-UI*SMNSR 

IF (IFLEX*E0«^) 5lNr*0.S*( u*smnsr*smns»o 
BnSAR2»B0MAX/S0BT (2*ASMlNf.» 

ONbL»MaCH**(2./3, ) 


*XE» 
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ON 


11500 

11600 

11700 

IISOO 

11900 

12000 

12100 

12200 

12500 

12600 

12500 

12600 

12700 

12800 

12900 

13000 

13100 

13200 

13300 

13600 

13500 

13600 

13700 

13800 

13900 

16000 

16100 

16200 

16300 

16600 

16500 

16600 

16700 

16800 

16900 

15000 

15100 

15200 


IF (MACH.&T-U77) 0NBt«8ETAM 
CSM0C«CUS(SWPW) 

SSUOCaSIMlSUPU) 
CSWlfaCOSlSWFWLF) 
SSWtEaSINlSWPWLE ) 

TSMLEaTANf SWPMIF 1 

TSWTf»TSWI-£-6**(1.«TRW)/( ARM*( 1 

ARMCbARW/(ARM^2.) 

ARM2al«ACH/ ( M ACH6 1 • 1 
tSgW»ARSlN(SSW0C6CA) 
fslew»arsinisswlf*cai 
SFS0W«S1N(ES0W) 

CESOW»COS(feSQWl 

CeStEW»C05(ESltW) 

SOCE St *C€ 5tf K *Ci si- 1 K 


A8l"n*6*^'*^WNS0)6*3,5 
CONST •GAM2/SMNS0 
CPSTAGal.t) 

IF INACH.LT, 1.0) 00 TO UO 
STAGl»n*2*SMNS0)*63.5 
STA62»<2,6/|2.»6SNNS0«0*6> 1*62. 
CPSTAG»CONST*< STa01*STA02»1*0) 

110 IF 

FCEXN«0.5 
XCaXCO 
GO TO 130 

120 CFXN»( (KACM«,98)/( U/CSHLt**^**! 
FCEXN«(U-CEXN)/2« 

xcaxcot ( 1 • *xcn I ♦CF 
IF <XC*GT*1«1 X€«U 
130 IF (IXCO.FW.l) GO TO UO 
CONCaARN*! I 1 

SXCaATANI TA nISHPwLE )» 4,aXC*( 1*< 
S0CSXCaC05<SXCl**2 
S0SSXCaSIN<S*C)**2 
BHlalU**2*SHNS0*SOCSXC>**3*^ 

AH2a2,26SHNS0*S0SSXC 

AH3a(1.6.2*AM2)**3.5 


•♦TRW) ) 


5 


) aa2* 


THW)/C0NC) 
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15900 
15400 
. - 1 55 0 0 

15600 
15700 
19000 
15000 
16000 
moo 
16200 
16900 
16400 
16500 
16600 
moo- 
16000 
16000 
17000 
17100 
M 17200 
17000 
17400 
17500 
17600 
17700 
17000 
17000 
10000 
lOlOO 
10200 
10900 
10400 
10500 
10600 
10700 
10000 
10900 
19000 


om» 1 .166674AM29S0CSXC-* 16667 
CPt IMS* fB»«l/^.5«.l»> ♦CONST 
_ - -CP05*40**670400 1 « 1 

CPDST«CPDS4(1.-XC)/2. 

GO TO 150 
140 TSHK«TAM|SHK) 

SOCSHKbCqS ( SHK ) *COS ( SHK > 
S0SSHK«SIN(SHK)4SIN(SHK) 

- -OM46»4V»4^766MW^0460CSHX1**J*5 


AM2S«2»2«SMNS04SoSSHK 

AM9S*( U4*<24AM2S)4P9«5 

OR 1 S* 1 , 1666T#AM?S**0CSHK- • 16667 

CPU IMS* (OMlS/3. 58-1 •»*C«NST 

CP2«C0NSt*(RRlS4AMl/AM9S-l,> 

1-8 <MA€Hm*^007-T6MR*T6MR44 ^Tk»TSMK »*CSXW 

toif*tsmle-tsmk 

150 IP ICPLIMS«GT,0* ) CPLIMS*0. 

CPUM*CPtlOS 

IF (MACH.Ce.U) GO TO 160 

CLIM«SMNSR44 U»#92/MACH**2*5) 

18. 4 Gi l 0 >0 K OOS «Pi4F»S M G0t4M*-CLlM 

SUilM*«CPiIM4CA 
160 0FXP«l»9«SMNS04C€SitW/4. 

IF lMACH«i{*l«) oO*^*!*'****^*^*^*^***^** 

IF (OfXPtiT.UI OfXP»l* 

A2*CES0M9CA 

SXOS*1*»<OOS*2W< U*TRWl l»*IRM>/2, ) 

ARWX«ARW4BUSO/SXoS 

nswtuiiinsjilwu'" ■ - * •< » , 

ARWX2*2«4BUSO/$XoS2 
arm2x*arwx2/ ( arhx?f2*/nach ) 


te$ti»mach*ceslsw 
IF (TFST1«GT«U) GO TO ?00 
AMXS* ( 1 •♦•2*F INTaSMNSOPSOCCSL ) ♦•J.S 
CPMXs*CONST* ( AMXS- l • ) /60CE6L 
IF (apw«ge*?«o) go tu ilo 
ITO TRIG1*2»*9#*S4*SAfO*4SA6*4« 
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00 


19100 

19200 

49300 

19400 

19900 

19400 

19700 

19800 

49900 


180 


7R|G2»4«»10.4SA4SA45.4SA*»9* 

CLMU. ( SORT ( ARWX I ♦ < 2.4AR.<X ) *T A » ASA^CA^CA^F I SO*SXOS*F INT/2, 
CL>4i»Cl,90 . , . 

OLALFA* ( SORT ( ARWX >ACA*TR 161 ♦( 2*tARWX )AS aATR1G2>*F INT*SXUS/2* 

IF (MACHvtE.l.l GO TO 180 
CLWU« ( CLWUA 1 • 7320$ > /OF 7 AM 
0LALFA»0tAUFAA(0,54( ,84A029/BtTAM) J 
IF (aKW,GT«1«79) go to 190 


20000 

20100 

20200 

20900 

20400 

190 

CLALFAaOtAtFA/RAO 
COUMvCLWATA 
GO To 480 
CLUP»CLHU 
CLtPsCLWL 

ri p-ri 



20400 


COP»CLP*TA 

20700 


OLPaOLALFA 

20800 


TARX«4,*ARM«7, 

20900 


60 TO 210 

21000 

200 

(MAC)^*^^*1**AN0 


AR0FT**aI*(MaCH«1* ) 


34400 

21200 

21900 

21400 

21900 

21600 

21700 

2|800 

21900 

22000 

22100 

22200 

22100 

22400 

22900 

22400 

22700 

22800 


210 


IF^ 

IF 

IF 

IF 


(mACH»GT*4«) aROTT»ARSIN( •71429*SO«i< i**^*/SMNSon 
(ARM«LT.2«0) go to 170 
IAIELJ*GT»U GO TO 9l0 


C 

C 

-C 


SHARP LFAOIMG FOgF 
FliJlal.O 

IF (MACH.LT, 1.0) FUJl.l,/(2.0*MACM)**FtXP 
IF (ARW,GF.2,0) gO TU 220 
FCLIL2»F|*A2ASA*CAAFiS0*( U^FLFX)/2. 
CLIL2«FCLIL24CL0/2. 

CL|W2«CL|L2 

CU2«2.*CL1L2 

0LI2»PI*a 24CIS0*(1.*F« fX) 

COI2»Ct I2 ATa4*06xP4CH2*CU2/ ( 2.*P I > ♦COCAH 

OlC2«OLI2*n.*CPMXS)/2, 

CL|U»CLUPt(CLl02«CL0P)*TARX 


AXES 
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22900 
23000 
23100 
23200 
23300 
23400 
23500 
23600 
23700 
23800 
23900 
24000 
24100 
24200 
24300 
24400 
24500 
24600 
24700 
24800 
24900 
25000 
25100 
25200 
25300 
1;^ 25400 

25500 
25600 
25700 
25800 
25900 
26000 
26100 
26200 
26300 
26400 
26500 
26600 


OL I ■DLP» ( OL 1 2-OLP ) ♦ T ARX 
COl ■C0P4 1 CO 1 2*C0P ) ♦ 1 ARX 
OO TO 230 

220 CLll«PI*ARWC4A24SA*CA4pIS0 
CLIO»CLIL 

CU*lCUU»CLlLl*f 1.4PL6X) 
OL 1 I «P I 4A24C 1 SO*aRWC 


OLIUsDLIL 

230 IP fMACH.Lt««n eO To 280 
IF (TESTl.GT.U) GO TO 260 
IF (IXCn*60*0.» qO 240 

CPDIF»CP2*2*PCPLIM*I I .♦Fli X) 

Xr.SH*XC/( UtTRVI) 

ClMti»CA*<CPDlF*(xCSH»T0lF*AR**/8» )»CP2/2* * 
OtMU»-SA4(CP0IF4|XCSM.T0IF4AR#l/«»)«CP2/2*J 

GO TO 250 

240 cnNMS*CPLl><S**C#'C»*T^^T 

IF (MACH.GT.I,) cON«S»CPLTM4XC^CPf)ST 

CLMU»-C0N'^54CA 

OtHUaCONMSASA 

||. 4ARW^E«2«01 go TO 250 

CLCL2*CPMXS4FH*L24CLn4»^tFXN 

OLCL2»CPMX5*oCl2/2# 

CLCL»CLLP4 ( O.CL2-CLLP ) *T ARX 
2 (l»K )«4 

CLUP2«CL 102/ ( 1 •♦FLEX ] ♦CL04FCEXN 


IF (CIHU*GI,CLUM2) Z<I«X)«3 
GO TO 270 

250 CLCI •CPMXS4CLTL 
0LCL»CPKXS40LIL 
tt I*K»«4 

CLOCAM«CLIO^CLO/2, 

IF ICLHO.CI.CLUCaMJ zn.K)»i 

GO To 270 
260 Z(I«K>«5 

IF <ARU*GF*AR0ET 1 Z(I*K*»6 

?70 IT (WAC0*Gfc,2*l fLEX»( Sort I )*6feXT/S4ING 

INOEX»Z( I *K) 


AXtS 
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26700 
26800 
26900 
27000 
27100 
27200 
27300 
27400 
27600 
27600 
27700 
27800 
27900 
28000 
28100 
28200 
28300 
28400 
28600 
28600 
28700 
28800 
o 28900 
29000 
29100 
29200 
29300 
29400 
29600 
29600 
29700 
29800 
29900 
30000 
30100 
30200 
40300 
30400 


GO To (280f300t300f340t360t960»f INDEX 

C 

C tNCUMPRESSlUtf sharp LEADING EDGE (2al) 

C 

280 IF (ARN«GF»2*0) GO To 290 
CLILaCLiW 
Cl I"2.9CLIU 
CLM.CLI 
CDLMaCOI 
CLALFAaDLl/RAO 
CLWU»CtIU4CL0/2. 

CLNLaCLWU 
GO To 680 

290 CLI»(CLI04CLIL)4|1»*FLE*) 

OL 1 ■ ( DL 7U«OL IL )*( U4FLEm 

CO I aCL I 4T A**0EXP4CL I *CL I /P I A«w 

CLHaCl. I+CLO 

C0LW«CD14C0CAM 

CLALFAaDLl/8A0 

CLWO.CtlU*! 1 .♦FLEX l+CLO/2, 

CLNLaCLIL*n.4FLFX)4CL0/2. 
on TO 680 
C 

C compressible and sharp leading edge MACH limited (la? U Z*3) 

c 

300 IF (A8H.GE.2.0) GO TQ 330 
IF (MACH.GI.1.01 GU TO ilO 
CLCD2aFCLlL2*FUJi4Cl 0/2* 

CLC2aCLCL24LLCU2 

PLC2aOLl2*(FUJUcPHXSI/2, 

GO Tn 320 

310 CLC02»FCLlL2 

CLC2aT CL IL24I1 .♦C.PHXS' 

01 C2aOLl2*(l.FCPMXS»/2. 

320 DLC»DIP+<DLC2-DIp)*TaHX 
CLAI f AaOLC/RAD 
CLC«CLP4(CLC2*CLP1*TAI»X 
CLMUaCLUPt I CLCU2-CLDP ) • f A«X 


*XE» 
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30500 


30600 

30700 

30800 

30900 

31000 

31100 

31200 

^1300 

31400 

31500 

31600 

31700 

31800 

^1900 

32000 

32100 

32200 

32300 

32400 

32500 

32600 

32 700 

32800 

32900 

33000 

33100 

33200 

33300 

33400 

33500 

33600 

33700 

33800 

33900 

34000 

34100 

34200 


C 

C 

C 


CLHL*CLCL 

COC2«CLC2*l4**Of**^^CLC2*CLC2./<2»*PI >4C0C4 h 

C1>C«€084 < COC2-COP > • • 4RX 

CLW»CLC 

cotw»cnc 

60 TO 680 
130 CLCU«CLI0*^0J1 

CLC»<CLCU7CLCLU<U+FLE>tl 
OtC«<OLlW*FOJl4>Ot€L>6< l»4FtfcX> 

COC-Cl C*T34*0EXP4CUC6CLC/P I ARM 

CtW»CLC4CL0 

C0t«*C0C4C0GA8 

cialfa«olc/rad 

CLWUBCLCU*n«tFttM^CtO/2* 

CL8L*Ct€t • < I > 4CGO/ 2 • 

60 TO 680 


SURFACE RACH LIRITEU U"4) 


340 If <APW.Gfc*2*0) 60 To 3^»0 
CLR2»Cl<*«>* 4 I • ♦EtE A > ?CtC*-2 
Ol.R 2 »OLWU*n •♦flFXJ* 0 lCL 2 

CLH»Ct P* I CLM2-CLP > *TARX 
0LM.0LP4 4 0t»»2-0LP » PT ARX 
COM2»CLM2 *ClR2/ 4 2 • I > R2P T A44UE XP 

CDR'CDPP I C0M2-C0P » PT A« A 


CIR-CIR 

CLRU»CLHUP( l»*FtE*PTARX) 

CL8L-CLR-CLWU 

COtw»COM 

Cl Al 7 A«OLR/RAO 

GO To 680 

350 CLM«(fLR41*ClCl )•( I •♦ElfAT 
DLR«4 0l.R4IPOLCL»*( U^fLF* » 
C0H»C4 H*CIR/PIARW*CI M*TA**Of *P 


Cl M»Cl M4CL0*ECE AN 
COL*<«COH»CDCARPfcF*N 

CLWUbCLMOP ( 1 •♦f LfA ) 


AXti 
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ro 

to 


34300 

94400 

34500 

34400 C 

34700 C 

34800 C 

34900 

35000 

35100 

35200 

35300 

35400 

35500 

35400 

35700 

35800 

35900 

34000 

34100 

34200 

34300 

34400 

34500 

36400 

36700 

34800 

36900 

37000 

37100 

37200 

37300 

37400 

37500 

37400 

37700 

3 7800 

3 7900 

38000 


CtWL.CLCt* ( 1 .♦tLeX 1 ♦CU3*FCfcXN 

CLALFA»0tM/RAD 

GO TO 680 

SUpfeRSoNlC SHARP IfcAOiNO EOOtf AITACmEO SHOCK (Z*5) 


360 FLAX.( 1.4H0SI*42 
RTHAaO* 

RTtAsO* 

FtAX2-CU+8nSAR2)**2 

PCI AM«0*45/HACHpfLAX*( 1.«0,45/MACH1 
FCtAHU»0*65/ < MACM*Fi:LAM ) 
FCLAML»FLAX*| 1 ,-o*^ 3/MACH) /F Cl AM 


370 


380 


Cl 0«0* 

IP {ARW*Ck*2*0) on TO 390 

FCLA2«2*pP 14SA*CA*CA4ARM2X*SX0S2*FIS0*< I **FLtX) 
FCLAM2»0,65/MACM4TtAX2*( 1.*0#65/MACM) 

CtA2»FCLA2AtCl.AH2 

tF <MACH,0T,U4l4» ri.A2«CLA2/RE T AM 
IF lMACH.t6,3*l GO *0 380 
IF lAt»»HA*L«.l6.| 60 TO 370 
HVPM»1 ,»4*4SMNSR*I •944SA4SA 
IF (HVPH.LEvO.) hTPH»0,01 
RTMA«S0RTIHVPM) 

CLAi»5,4( l»F1.44SA*SA»CA*RTMA|4CA4ARM2X/b, 

GO TO 380 

MVPI •U-4**SMMSR4ALPHA/16,-1»96*Sa*Sa 

RTLA»S0RT(HYPU ) , ^ 

CLA2«5,*( 1 .♦1,44SA*SA-CA*RTlA)*CA*ARM?X/6. 

IF fAKD.GT •0.008726) GO TO *20 

Dl A2«4.*SX0S24FCLAM2*1 l.4FLe*)/BfcTAM 


390 FCLA»2»*R**SA*CA4CA6aRMX*( I . tFLF* ) *SxaS*F 1 SO 

CtA»f CLA*FCLAM 

IF (MACH. M. 1.414) CLA«CLA/Ht!AM 
IF (MACH.Lt.3*) GO «0 4l0 
If ( Al PMA.LF.16. ) GO T(J 400 
MVPH»1 .•4.*SmNSR«1 .96*SA4SA 


A 
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98100 

98200 

98900 

98400 

98900 

38800 

98700 

38800 

38900 

39000 

99100 

39200 

39900 

99400 

99500 

3960 

997f j 

39800 

99900 

40000 

40100 

4O200 

40900 

40400 

40500 

40600 

40 700 

40800 

40900 

41000 

41100 

41200 

41900 

4U00 

41500 

41600 

41/00 

41800 


IF (HVFH*tfc»0«) h7»»H«0,01 
RTHA*S0RT(HVPH) 

CLAa5**4 1 1 .44 Sa46A-CA*«THA J ♦CA* ARMX*S*0S/6 , 

GO TO 410 « . c 

400 MVPL«l#«»4**SMNS84AtFHA/l6*»l •96*iA*iA 
RTLA.SORTIMVPU) 

CLA«9,4CU4l*44SA*SA-CA*RTtA»*CA*A8MX*SXUS/6. 

410 IF (aRO*OT« ,008726) GO TO 440 

Ot A«4,6< 1 •♦FLFX >4SX054f CtAP/81 1 AM 

♦20 0?a 2»2»*P14CIS06CA4ARM2X4SX052*FCLAH2*( U^PLEX) 
IF (MACH.GT. 1,414) OtA2-OLAF/BETAM 
IF (MACH,LE,9*) go to 490 
IF (RTHA«E0,0, ) rtma»rtla 

IF (RTL4,60*0«) RfGA»RTMA . 

0LA2.(ARM2x65,4(2*»*SA6CA*CA*SA*CA*RTLAtl.96*SA' 

16*«CLA2*TA)4SX0S2 

430 0LA«0LP/0NBL« ( 0La 2-0LP/0NRL ) *T AkX 
CLA«CLP/0NBL4<CLA2*f LP/O nBL ) ♦! ARX 
GO Trj 450 

440 OLA*2*6PI*CISW*CaAARMX 4( 1 ,4FLEX ) 4$X06*FCt AM 
IF (MACH, GT. 1.414) ULA«0 l A/BE T AM 
IF (MACH,tE,9,) GO TO 450 
IF (RTHA,EU,0,) rIHAsRTLA 
IF (RTlA,E0,0.) RTUA.RTHA 

A« I ARMX45,4(2,8*5A*CA*CA45A4CA*rTHA»1 ,V6*SA*C 
I6,»r.( A*TA)*5Xn5 
450 C0A»CLA*TA 
CLH-CLA 
COLMvCDA 

clalfa-dla/rao 

Clmo»cla*fclamu 

Cl.'*L«rLA*FCLAMl 
GO TO 680 


C 


C 


CA4CA/RTLA)/ • 


CA/RIHA)/ 


C 

c S'lPERSONIC IEAOInO EpGt* DETACHED S^^OCK (Z»6) 

C 

460 F( AX«( 1,4B(IS)442, 


f 




*02n^ni i2io3i^>/ 


41900 
42000 
42100 
42200 
42300 
42400 
42S00 
42600 
42700 
42800 
42900 
43000 
43100 
43200 
43300 
43400 
43300 
43600 
43700 
43800 
43000 
K> 44000 
44100 
44200 
44300 
44400 
44S00 
44600 
44700 
44800 
44900 
43000 
43100 
43200 
45300 
43400 
43500 
43600 


FIAX2»<1.*B0S4R2>442. 

FM0MU*1»0 , n 

IF m*CH*GT.l*21 FK0*»U.X«/|MACH-0,2) 

fMOMt»l •6*0*6*MACM 
IF fMACM.GI.l*3) FM0HL»0,7 
IF IMACH.GT.2.21 FHOWL»0,J»1*/<MACM- 


.55) 


IF i|Fi;i'.iO.I.»ND.H*CH.lt.4.l F "OHL-FHOML* ( .6* .MCH-l . • / 10. I 
If (S0W.Lt.50.) GO TO 470 
IF (ALP»U.LI.24,) go TU 470 

FW4Z6«l»(iOW»50. )♦< 1 ••0t4*C0)4N( *R0) )/20. 

IF CFWA26*LT.0.5) FWAZ6"0.3 

FWOWL •FMOML *FWAZ6 

470 TRIC.3*2.4CA4CA-S6*SA 
CL 1 WP»C^ST aG 4SA*SA*CA 
Oi |MP«CPSTAG*S*4T81G3 

l*(l.4FLFK) 


1 


460 


490 


If ( VIL1H.GT.CLOU22) Go TO 
CL0L«CLLP/DNBL^ < CL0L2-CLLP/0NBL ) ♦TAR* 

0L0*0LPF(0L02»0LP)*^ARX 

FL26«PI*SA4CA4CA*f 130*A«HX/ONBL 
CL0U2»FM0»<U*FL26 

sisirout ..p.u..Fc^.n 

If (Si'LlH.GT.rinu2) GO )») 500 
ri htfarAPCL 1 m*( I .♦FLI X ) 43X03 


AXES 
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A5700 
ASSOO 
AS900 
46000 
46100 
46200 
46300 
46400 
46600 
46600 
46 TOO 
46000 
46600 
4T000 
ATtOO 
4T200 
47300 
47400 
47300 
4 7600 
47700 
47000 
4 76O0 
40000 
40100 

48200 

48300 

48400 

48500 

48600 

48r00 

48800 

48600 

♦9000 

46100 

49200 

46300 

49400 


FOUO«SULl«4TA*n,47lE*)*SXOS 

0l0»ARMX4SX0S4Ft AA* < 1 •♦f LFX > •FMOH|.*CPST Al»*P I *CA4C 1 SO/ONBL-FULO* 
10t|Mp*(U4FkEX) 

500 CLO«ClOU4CLOt 

CD0»C10*TA 
CLB-CIO 
COLUaCOO 
CLMUsCLOU 
CLWLvCLOL 
CLALFAvOtO/RAO 
GO To 680 
C 

C BLUN1 LFAOINC COGF 

C 

5l0 SaAftO«60AR«MAR 

SOALE* ( ALFR/AACR ) **2 
SOaL 1 • ( ALfeRN 1 /AMCR ) 

CALFR«CnSCAtER) 

SAtTRaSlN(ALER) 

SALFR]*Sl 't(AtFRMi ) 

60CEOW«CESOUACESOB 

socow»cswoc*c$woc 

EStiFR«ARSlN(SSU0c4CALFR) 

CESOR«COS(ESOERI 

SESOR»$IN(ESQER) 

socfor*ce5or«cesoR 

Fla(ARU4Ai.kR)/2, 

CF1»C0S(EU 
SFI»SIN(F1 ) 

ClS0Fl*SFi*44*4CFl*CFl-2.*SFl*5Fl-3,4SFl*5Fl*CFl4CFl/2. 

AMC«2»2*/t AmCR*AhCR > 
t ARDaARD«AMCR2 
IF(TAR0*GT*0«17t TAkn«0*l7 
CL IU«PI*ARRf4SA*CFiOW 
Cl 1*CLIL*2, 

OLU aPIPA^AARWC 
IF (MACM.Lt*.n G” TO 560 
IF (T|$T1*GT«U > GO TO 360 


AXO 
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A9500 
A9600 
♦9TOO 
A9800 
A 9900 
50000 
90l00 
50200 
50300 
50400 
50500 
50500 
50700 
50800 
50900 
51000 
51100 
51200 
ro 51300 

51400 

51900 

51600 

51700 

51800 

51900 

52000 

52100 

52200 

52300 

52400 

52500 

52600 

52700 

52800 

52900 

53000 

53100 

53200 


CTW0C*CSU0C/SSW0C 
IF (CTW0C«GT«4* ) CTW0C«4, 

CTES0U«Cf SOW/ SfcsO“ 

IF ICTfcSQW.GT.A,) CTESQWa4* 

C7ES0R»CES08/SES08 
IF (€r&S08«GT«4l CTES08«4» 

CLCUM1«PI*SA*CTES0W*ARWC*F INT*( 1 I ,»SFS0W > ♦SOARO 1 
CUJEMl«Pl*ARWC*F|NT*SALERl*CtfcSwH*( l,.( I ••SES qR > ASqALI ) 
AT2»a*-n*-StS0W)4S0AR01*CA*(U»SiSOW*TAR0)4SA 

0tCUMl»AT2AP!*ARWC*FINT*CiEs0^ 
ee T Atf •S0« T ( A8S < 1 . *SMNSOAS«CtOR J J 
IF (8ETAtE«LE**25) HETAtE»*25 

BFTAMA«$08T(A8S( l,»SMNSQ«SuCfcOW) I 

IF (BETAMA.te*«25) BkTA^^A**/5 

04*1,«0ETAMA 

D5»CES0W/8ETAMA 

n2«( 1.«04 ASoARO)*SA*05 

Gl«( 1**04ASOARO>4CA-04 «TARUaSA 

U CU«P|*A«WC*02*F IWT 

IF IMACH.GT.I.I CLCU.CLCUMI*SINT 

E3«1«-0ETALE 

Fl.(l.-E3*S0ALE)*SAl FR 

E2«El*CFS0R/8ETAlE 

Cl UES»Pl*A8WC*FlN7*fc2 

IF (MACH.GT.1.1 CUVtS-CtUEMl*SlNl 

CtU8S*P * ♦ ( ARO-AtEP > *CP 1 *ARWt*CfcSOw*C I SOF 1 

Cl-EO.CLUESFCtOBS 

CLEU Jl »p 1 *ARWCAA2*5 A4CAAF I SO 

IF (CLEU.L T.CLEUJl ) ClEU-CLEUJI 

IF (MACH.lk»l«3> GO TO 520 

FUZ3»1 *-l • l*MACH*CSWtF*CS>«»LF4S0R J (MACH-1 *31 
CLEU.CLfeU*FU23 
320 CLCL»CP8A5*CtlL 

Dt CU»P I aa/aCPHXsaARWC 

CLLES»CPHXS*PlAARWC*CESORASAl.tH 

DlkL»0*5*CPRXS*P|*A2*ClSw*ARWC 

ClfcL»CLLFS4nLEL*(AR0-ALER) 

CLJIEI •CP»lXSAP!*Af^*'CAA24SAACA*FIS0 


AXES 
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53300 
33400 
«.3»00 
53600 
53700 
53600 
53900 
54000 
54100 
54200 
54300 
54400 
54500 
54600 
54700 
54800 
54900 
55000 
to 55100 
55200 
55300 
55400 
55500 
55600 
55700 
55800 
55900 
56000 
56100 
56200 
56300 
56400 
56500 
56600 
56700 
5t>ti00 
56900 
5 7000 


530 

540 


550 


560 

570 


580 


0LJ1£U»CPHXS*P!4a2*ARWC*CI50 
IF (CLJ1EL*GI#CLEU CLEL-CI.J1EI. 

IF 0L6t«2»*0tEL 

C0NM5»CPL I8S*XC*CPt^5T 
TCWW»TCWP*CSWOC 
FTC»I ••J6*4TCWW4*2 
IF (FTC*LT*0.> FtC»0, 

If (hac«*<»7*i*> co^**’5»cpi.ih*xc+cpost 
IF llXCn,t0,0> Go TO 510 

CP0IF«CP2-2.*CPt|M4llf4»'tFX) 

XCSM»XC>< 1*+TrW) 

ClT^U^CAPlCPniFAlxCSH.TOiF***^*^^®* >»CP2/2* * 

DLMU»-S4**CPD1F*( xC«iM-T0lF*A8w/8* ) »CP2/2* ) 

GO TO 540 

CtMU«.COl4M$*€A4F7C 
0 LMU»C 0 NMSP>A 
IF uPO.GE.AtERI 00 TO 550 
2( 1«X>«2 

CLUCAH«CLCU4CL0/2* 

IF ICLMU.LT.CLUCa*^) 

GO To 5T0 
2 f 

ClUEAM«Cl.feU*Cl.0/2* 

IF ICLUEAM,LT.CLM0I 2(I»K)»3 
GO To 570 

If- ^ (MACH«GE •Z* > FLfcX* 1 SOP T ( I •* 4 •/MACH) )tStXl/$WjNG 
(IFLEX«t0*0) 60 TO 5«0 

(Z( I«X)*t6*4) FLFX»(SgAR)**7*bfXT/SWlNG 

WGT*4)^FLfX*(5EXT/bM|NG)*(50RT I l*»l#/HACM) ) ♦ ( 2* ♦HACH ) /8* 

IN0EX»2C 1 »R) 

GO TO ( 590f6l0«630*650. 


IF 

IF 

IF 

IF 


.670.670). TNOEX 


C 

C INC0MPRES5IBI.F (Z*!) 

t 

590 IF (ARW.Gt.2«0) GO TO 6^0 

CL IL2»PI*b4*CF^OM*l I . fFLEX ) ♦CM*/ 2, 


& 


•iNAL Page is 
POOR QUALITY 


AXES 


fti2/25/77 12t03|b7 


ro 

cx 


57100 

57200 

57200 

57400 

57500 

57600 

57700 

57800 

57000 

58000 

58100 

58200 

58500 

58400 

58500 

58600 

58700 

58800 

58900 

59000 

59100 

59200 

59300 

59400 

59$00 

59600 

59700 

59800 

59900 

6O000 

60100 

60200 

60300 

60400 

60500 

60600 

60700 

60800 


CL|2«CtIL2*2« 

OU2*PI*A2«n«4FLEX) 

COl2»Ctl2*ClrI2/<2*PPM4COCAMttCLi2*< TA*4UtXP) I 
CLI»CIP4<CU2«CLP)*7ARX 
0LI»0tP4<0LI2-DLP)*7ARX 
C0I«C0P4(C0I2-C0P)*TaRX 

CL|t«CLl/2* 

CLIU»CL1L 

ClWtisCtlO 

CLWLsCUt 

CIW-CLI 

COtWsCOl 

clalfa.oli/rao 

GO TO 660 

600 a.l*2.*CtlL*U#4Pl6*» 

01 i*2*60LiL6n«*ptex) 

coi*ci i*cli/piarw 

If (ARW.LU3.) C0l-(CU*CLl/PIAR»<)4(CLl*<TA**nkXP)P(3,-ARW) ) 
CLW.CtnCLt) 

C0LW»C0t ♦COCAM 
CI.4iFA«fH.l/RA0 
CLM''«CL!L*< l**PtFX>+CL0/2. 

CLML«CLlL*n •♦flex >4CLO/2. 

CO To 6M0 
C 

C COHPRvSSIHLP (Z»2> 

C 

610 If URW.«»U2.0) GO TO 620 

CLC'I2»PI*D2*FINT*< 1.+FlEX)/2*4CLU/2. 

IF (MACH.GT.1.0) CI.Cu2-CLCUMl*n*4FLfcX)/|&KHC*2*» 

OtC02»C14P I*CES0 m4F INT* ( I ,+FLEX > / ( 2**“E T aM4 ) 

IF fMACH»0T»l«0) DLC02»Dtr.‘JMl*| l*+FLtX)/(AR*<iC*2* ) 
ULCl2*PI*A2*CPMXs*n«4f LFXl/2. 

01.C2«DLCL240LCU2 
ULC*Ot P*(nLC2-ULp)*TA»X 

Cl Cl 2*CPMXS*P| *SA*CLS0M* (l*4fltX>/2*4Ct.ii/2* 

CLC2»CLCL2*CLCl>2 

CLC*CLP*lCLC2»CLPl*TAkX 
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60900 

61000 

61100 

61200 

61300 

61600 

61500 

61600 

61700 

61000 

61900 

62000 

62100 

62200 

62200 

62400 

62500 

62600 

62700 

62800 

62900 

63000 

63100 

63200 

63300 

63400 

63SO0 

63600 

63700 

63000 

63900 

64000 

64100 

64200 

64300 

64400 

64500 

64600 

68300 

68400 


CnC2»CLC2*CLC2/ < P I *2 . > tCOC AM7CLC2* i 1 A960EXP ) 
C0C»C0P4 ( C0C2-C0P ) 97 A« X 

ClCO»CtUP^ < Ci.CO^»CUlP » 9T AHX 

CLCL»CLLP^ < CLCL2-CLLP ) • T AR X 
Cl WUsCLCU 

clml»clcl 

CLW»CLCU4CLCL 
CnLW»CDC 
CLAtPA*0tC/RA0 
GO TO 680 

620 CLC«<CLCU»CLCL)9(l*7Pl€X) 

OlC“»Gl*Pl*CES0W4ARWC/BfeTAHA9l-|Nl 

IF IMACH.GT.l.) 0lCVi»DLCUMl76INT 
DLC» ( DLCU70LCL > * C 1 •♦FLEX ) 

COG*€L-C9CLC/4»l AR« ^ 

IF CARW.LT. 3.1 C0C«(CLC9ClC/PIARW)4(ClC*nA9*DEXP 

CLW«CLC^CLO 

COtWaCOC^COCAR 

CLALf AaDLC/BAO 

Cl WU»CLCU*n.^ELE*T^CL0/2« 

CLWL«CLCL*< 1.^FLF*»*CL0/2. 

GO To 680 

leading edge MACw limited (2«3I 

630 IF (ARW.GF«2*0) GO TO 660 
CLUFM2«CL04«1/( ArWC*2« ) 

CLUES2aCLDES/ ( A rwC*2, ) 

IF (MACM.GT.l.OI CLUES2»aUt«2*SlNT 
Cl UB s2»ClOB V < ARWC92. » 

CLEU2*CLUES24CLObS2 
IF IMACH.Gt.1.31 CLFU2«CLFD29IUZ3 
CLLFS2«CLiE6/IARWC*2, ) 

0LEL2«IH EL/CARWC*2« ) 

CLEL2*CLLES2+OLEl 2* 1 4R0*Al LR > 

Cl Jl 2«Cl Jlfcl / C ARwC* 2, 1 
IF (CLJL2.GT .CLFL 2 > CL6L2«Cl-JL2 
IF (CUL2.GT.CLEL21 OLEL2"2.*0LfcL2 
DLM«0L P ♦ < 0LM2*»H p ) * I AR X 
Cl W«CI R 


)*(3.«AR»i) ) 


AXbft 

68S00 
68600 
68700 
68800 
68900 
69000 
69100 
69200 
69700 
69400 
69600 
69600 
69700 
69800 
69900 
70000 
70100 
70200 
70300 
70400 
70600 
70600 
S 70700 
70800 
70900 
71000 
71100 
71200 
71300 
71400 
71600 
71600 
71700 
71RO0 
71900 
72000 
72100 
72200 
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CL W‘i»CLMU* i 1 .♦FLeX*T ARX » 

cl«l»cum-clmu 

C0CU«40M 
CLALFAaOt^/KAO 
on TO 6*0 

660 CLM«(CLMU*CLJlfcLl*< 1*4FLSX) 

0LH»<0LWU^0LJlfcU*n,4Ft|Xl 

C0W»CLM4CLH/F|ARW4CLM*TA**0EAP 

C4.*<«€LM«CI>0«A€L Xn 

C0L9«C0H4CDCAM*FCFXN 

CLALFA«DL*</RA0 

CL WU«CLMU* 1 1 « 4FLF* > 

CLWL»CLJieL*U .4FL6X ) fCLOFFCtAN 

on To 680 

C SUPERSONIC blunt leading EDGE* ULtACHEU SHUCK (2*6) 

C 

670 CLU«0. 

GO To 460 

C LIFT AND DRAG OF BOUV NQSfc ANU LIFT ANU URAG OUL To LIFT 

C OF TMF M0RI70NTAL TAR 

C 

680 CALL RCLCOl 

IF CSNING»NE.0,» go to 690 

CL«I*K> • CLN(I*K) 

COLdtKT • C0I4(1*K) 
on TO 710 

690 IF (21 l•K)•NE,4» GO TO 700 

COSfcPC I *K T • ( I -XC T * < SA/2 ) ♦ C SPANM-BOMAX ) ♦CBAKH/SH ING 

700 LL«I 

CLW ( I *K J«CI W 
COUU I,K)«COLM 
CLWOl ( I *K )«CLWU 
CLHLU ItKTtiCLHL 
ULH I .K>«CLALFA4rA0 
Cl ALM|,K>*nLlU*K»/RAn 
710 CALL TRIMOG 


T2300 

72^00 

72500 

72400 

72700 

72800 

72900 

73000 

73100 

73200 

73300 

73400 

73500 

73400 

73700 

7 3800 

73900 


720 

730 


IF (SM|NG*E0»0» I GO TO 720 
CL1«CL»<4CI.H( IfKUCLNl I,K» 

LL»2 

CALL T4LIM0C 

COLl •(CDL'^4CDM( I ,K )+CON( I ) 40056 P( I *K l+Df D^R ( * * 

IF lALPMAS*GT*25,08«DftL7R( 1*8) .FO.O* ) Cl 1 "CLl *00078 ( I *K ) 
Cl ( I *K )»CL1 
COLl I*R)»C0LI 

lF(AtPHA.tE.45« I GO TO 720 
COFP«1«2*SmmSO/2» 

IF(MACH*G7«1* ) COFP»0*9*0*®^1^^^^09HACM) 

CDC2«CDFP* ( 2,*SA*SA-l • ) ♦ ( SX0$*5HUSH ) 

COLf ItKiaCOl 1*C0C2 

CONTINUE 

CONTINUE 

AFTUAN 

END 
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100 SUBROUTINi: BCLCDl 

200 C 

)00 C CALCULATES CL* CT) AUO C^ I^UK BUOY NUSE 8ASLU UPON 

AOO C 

500 C NEW VERSION CREATED ON 5/i9/T6 

600 C 

700 COMMON /WING/ ARW* SPANW* SW ING* TRW ,CROOT f C T 1 P * CROSW * T tP H * TC T W f TCWP * • 

BOO lTCW*SQW«SWPWtSWPwLE*XOMAC*CSWOC*SEXT«)(EXrfKEX*TOIFtFlNrtnELX 

900 COMMON /NOSE/ BOmAX* AStC f * APLAN*XLN«CLN ( 20*20 ) * CUN ( 20* 20 ) » • 

1000 1CMN0SE<20*20)«XLB«CL0B(20) *CM0B(20) *C0UB(20) 

1100 COMMON /rL«W/ Smn< 20) fNSMNfRNLOC ( 20) t I6A* 168* I6C(Z < 20*20 ) *AMC 

1200 COMMON /TRIM/ CLI*CLT*I*X*LL*ALPHA*DCDTW(20*20) *0ALTH(20*20)* • 

Moo lCM(2o*20) *DCLTR( 20* 20) *CmCL< 20*20 ) *E'fRlH*XC*CBA«W*YBAP*XLG»CLAL)^ A*» 

lAOO 21T*nEXP*LE*LT*En*IT«lH(20)*BElAM,SA*CA*CtXN* lXCU*IFLEXf ICDU 

1500 LOGICAL RNCtGT 

1600 REA( MACH 

1700 INTEGER t 

IHOO ELN0SE»1« 

1900 EONnSE*)* 

2000 L«EE • CBARw 

^lOO SRFE • SWING 

2200 IE ($w1NG*NE.O. ) GO TO TO 

2300 SREE • ASCCT 

2400 LHEE • BDMAX 

2500 70 rONIINiiE 

2600 C THE CROSSELOW MACH NUMBER CONDITIONS* 

2700 IE (BnMAX*NE*0*0) E T AN« .0 1 25*XLN/HDMAX4 • bS 

2B00 HACHvSHNd) 

2900 CLN(I,K)»0,0 

3000 CnN(|»K)»0*0 

3100 CMNOSF ( I *R »«0*0 

3200 IE (HnMAX*LE*O*0Ol ) GO Tfl 60 

3300 AR0»AlPHA/b7*2957R 

3400 SmnSO«SmN( I )**2 

3S00 S2A«2**SA*CA 

3600 CA2>C<IS( ARD/2. ) 

3700 CMN«SmN(1)*SA 

3«O0 RNC»KNLOCn )*HUmaX*SA 
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3900 
4000 
4100 
4200 
4300 
4400 
4900 
4600 
4700 
4000 
4900 
9000 
9100 
9200 
9300 
9400 
9900 
9600 
5700 
9000 
9900 
6000 
6100 
6200 
6300 
6400 
6900 
6600 
6 700 
6B0Q 
6900 
7000 
7100 
7200 
7300 


20 


30 


IF 

IF 

cn 

IF 

IF 

IF 

GO 


40 


COC« I •88-3*4E-6*RNC 
C0C«*129**HE"6*RNC 


CnN»2.9*CWN»U5 
C0Nl»4BS(C0N)4*( ,66667 ) 

COM2 aCOM/ CUM 1 
IF ICMN,GF#,3) Gn 70 20 
C7’C»1.2 ^ tan 

IF t mNC#G6,2#E5l*4NO.(RNC«L7,9,E9) | 

( |RNC.Ge*5*t9I.4N0.(RNC*l.!.9*fc6) ) 

t»»r4C.GE.9,F6l CDC.,679 

IV 40 

(CMM,l7«*4) go 70 30 
(C7'N*t7.1.» CnC»U54*33*CON2 
(CMN«GE,1,I C0C»1»244.99/SMNS0 

_ TO 40 

cnc*l •5t«33^CON2 

RMf T1hT»< lAwC*Cf \ %AN0# (RNC#L1 M 

IF (RNCTS7) C0C«l34,E*6*RNC»6*42i*CMN-l3.6t»6*RNt^3*b06 
DMr TcTa ( f RNI! *GE • ) • A^D« ( RNC •LT«S*E6)) 

IF (ftNCT^l ) C0C«( 

I F (RMC •GF •5*E6 ) COC»S I A 

CMNUSf •( 6-74*CA2*ASff 7 4C0C*t7AN4^A*sA*APL an » /SBEF 

It <2( |,ltULi.4I GU 10 90 
IF f SWlMG*fe0*0* I GO TO 9q 

CNBOOViiCNNOSe* <1 1 ♦ 7 UKAF 7 /XtN I ♦ ( MACM- 1 • ) /MACH ) 

CLNI I ♦M«CNB00V4CA*FLM0SF*CL0B( I J 
CONI I •!( I •CNBOOV*sA*7^0NOS6*COOP( I » 

FfMN9F«(CN8007»CNN0St)*(XLB»0XAFl/2*»*C«I , , . 

CMNPSEI l»K )»<CMN09t*( XCG«0#?*XLN)«FCMN9F ) /L«tF»CMOB( I ) 
GO TO 60 

90 CLNI I.KI«CNN0SE4CAFFLN0SE+CLUBI I ) 

CONI t*IO»CNNnSfc*SAFFDNf)Se*Cl)UH( I i 
CMNOSE I 1 I •CNNCJjf • ( XCG*0*6**l M ) / CRfcF^CHUB ( I ) 
tUMT ir4UF 
RTTIJRM 
END 


60 
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100 

200 C 
300 C 
400 C 
500 
600 
700 
800 
400 
1000 
1100 
1200 
1)00 
1400 
1500 
1600 - 
1700 
1800 
1900 
2000 
2100 
2200 
2300 
2400 
2500 
2600 
2700 
2800 
2400 
3000 
3100 
3200 
3300 
3400 
3500 
3600 
3700 
3800 


SUBROUTINE TRIMOG 


MEW version created ON 4/26/76 


COMMnN /WING/ ARWtSPANW.SWlNOtTR*«,CROOTfCTlP.CRaSWfTCRWfTClW,TCWP.- 
i??2.SOW,sipw'sSpwLE.XOMAC.CSHOCfS6XT.XEXl.ELEX.TDIF.MNT,OtLX 

COMMON /PWINO/ CLW<20f20|,Cl)W(20«20)fCLWU(20»20)ftLWL(20f20)* 

lMwS<2i%iwCL5s.0LU20,JO..a.LMa0.2O).C"0(20,.C0U,J01.CL«. . 

2CtMU*ntHU»CR4.IN*cP2*CPN*S 

COMMON /►TOTAl./ cL(2o«20> *CDL(20*20J in\ • 

COMMON /NOSE/ 8OMAXtASECT*APLAi';fXi.N*CLN(20»20) tCDN(20i20) , 
iCMNr)4f- 1 20*20) f XL r*CLOB( 20 ) *CHUB( 20 ) tCOUB( 2U ) 

' COMMON ^ /? A a / SHOP * SMOSW , XOHUR * VHOR , CLH ( 20 * 20 ) * COH ( 20 * 20 ) * SOH * ARM . - 
' COHMON^/F tow/ SMN < 20 ) *NSMN *RNLUC ( 20 ) ♦ I 6 A • I bB ♦ I 6C # 2 < 20 * 20 ) * AMC 

1 f M I 20*20 ) *OCt TK I 20 • 20 ) ♦ CMCl (20»20)fETR|Mi XC « CBARW *y0AR*XCG*tLAL *• 
m!^EIp.^^.LT;En^T^IM;20).itTAH.SA*CA*CEXN,IXC^,IFLEX,l^ 

COMMON /TROUT/ StM( 20*2<^) »UtLH(2U»2U) ♦D*<ASH( /0*20) *OmASHk { 20* 20 ) 


REAL Ll*Lk*lT*MACH 

integer ALELJ*2*W 

data RAD.PI.PI2/57.29578*3.14l59»b,2B3l8/ 

IE CLL*E0*2» to TO 170 

MACM«SMN( I ) 

CLO-Cl OS 

CMJ I ,K )«CMU| 1 ) 

0CLTR( I*K>»U* 

DALTR(I«K)«6, 

OCOTRf 1«IC)«0* 


alftri i,k)»alpha 
CMCL ( I»X)««9, 
ETRlMal • 


CIH( I«K)»0« 
COM* I *K)«0, 
SfM( |»K)a4, 
Claeht . 0* 
CLA^MR • 0, 
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3900 

9000 

9100 

9200 

9300 

9900 

9500 

9600 

9700 

9800 

9900 

5000 

5100 

5200 

5300 

5900 

5500 

5600 

5700 

5800 

5900 

6000 

9l00 

6200 

6300 

6900 

6500 

6600 

6700 

6800 

6«I00 

fOOO 

7100 

7200 

7300 

7400 

7500 

7600 


depda • 0» 

If- (sming«nc:»o«) go to 5 
CM(|*iC) > CMNoSE(IfK) 

RETURN 
5 CONTINUE 

IF return 

FCEXN«0«5 

IF <NACH«GT*,98) FCEXN«(l*»CfeXN»/2* 
IF lC7*l-I*O^I GO 10 30 
ARWCbARW/URW42.) 

SPAHvP I «ARH«5H0SW 

SRPH*SOH/RAO 

CSM«CnS<SWPM) 

ALPHAS«ALPHA 
50AR«ACPNA/AMC 
tF(S0AR«G7«U) SoRR*l« 

A73«S0R7f SOAR) 

SPANL««5*SPANM/tT 
ospnl«i*/spani 
ALR*AI PHA/RAD 
CC ALFU*2v*R 1 ♦C5N0C*ARN€ 

ALCAm>ALR»CI 0/CLAI F(i 

IF (ARW«Gl.i*75) GO TO 30 

C5NLE»C05<>«PMLE) 

TFSTl«MACH«>CSWLE 

IF (TFST1.LT.U0) GO TO 20 

SaARaF0«ULLX40«2*C8AR)^ 

GO TU 90 

20 E8AR«ED»0CLX40#2*CBARW*TfS 1 l**2 
GO TO 90 
30 W*Z( l.K) 

GO TO |40*50»50.60t ^0t80) » w 
40 F bar •FT) 

GO TO 90 

50 FBAR«rO*MACM4*2*CBARW/10* 

|F (MACH,GUU5) tHAR«FU4,2254CB4RW 
GO TO 90 

60 tU»tO^C0ARW9| .54KC-.25) 


•15FA/34CBAKM 
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CO 

0 


7700 
7800 
7900 
8000 
8100 
8200 
8300 
8400 
8900 
8600 
8700 
8800 
8900 
9000 
9100 
9200 
9300 
9400 
9S00 
9600 
9700 
9800 
9900 
1 0000 
loloo 
10200 
10300 
10400 

losoo 

10600 

10700 

10800 

10900 

11000 

11100 

11200 

11300 

11400 


C 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 


f I •eD4M4CH*929CBA8>*^ 10* 

IF IMACM.GT.1.9) FL*tD^.229*CBARW 
CLWAsCLtM 1 *K » -CtO*«t*W 
IF (CLWA,EU«0.0) CLWA*0«001 
EBA««|CLWU( ItK »*eU^CLWL( I*K>*Et»/CL>*A 


GO TO 90 

70 EBAR^EO^.^SACBARW^OFLJi 
GO To 90 


80 t8AR*EO^.^*C8ARW4.l>tLX 

IF ( IFI,EX*E0,9) GO 70 90 
EBAR.ED4*l«rBARW40eLX 

IF IMACH.GE.6*) fBAR»EO+*2*CBAKWtOELX 

IF IMACH.GT,4,0.AN0*MACH,LT.8.U) FBAR-EDF ( 0 • ( HACH-4, t /20. ) 
1«rBARW4DELX 


average wake OOWnWASM aWGLE (RA01aWS> 


90 IF (LT*LE«0,| GO TO 140 
T1«2,/ARW 

T?»S08T|2**SPANW/(3,*f BARWI ) 

T3*$0RT<S<*AMLI 

C()NAR«*333333 ^ ^ 

IF |a8W.NE*3*) C(JNA8«1*/(3**ARW**(AHW»3) ) 

TA«( U3»C0NAR)/S0R7( I.fTRWI 

IF IMACH.LE*!*) 

IF (MACH,0T.1,I FPSt).ALR*TAAiTW,l*(T24T3n 


absolute value of NONOIMENSIUNAL 01 STANCE BE I WEEN 
WAKE AND the HORIZONTAL TAIL 


Vl»2-4YMnR/SPANW 

YOOSS»inSPNL-lf S/ARw^^slNlEPSOl-USPNLFSA 

ayuss*a8s< VI ♦Y onssi 

OOWNwaSH ANGLF at TMF horizontal tail (RAOIANS) 
AND PUWNWASH OER|VAIIVF» OEPUA 

W1«,2/S0R7 (OSPNL ) 


\ 


TKlNOG» t02/25/77 12|06t^b 


11500 

11600 

11700 

11600 

11900 

12000 

12100 

12200 

12500 

1240C 

12500 

12600 

12700 

12800 

12900 

13000 

15100 

15200 

15500 

15400 

15500 

15600 

15700 

15800 

15900 

14000 

14100 

14200 

14500 

14400 

14500 

I46o0 

14700 

14800 

14900 

15000 

15100 

15200 


M2»C2«4CnSl2*254AL8M/3« 

M3«1,-1.5*AY0SS 

M4a.75«AL84SlN(2,25*ALR) 

W5aW2-W4 

IF (MACM«IF*U) eP51«ALCAM*T44(W1 + T1)*W2*W5 
IF (MACH*GT*U) FPSl«At8*T6*(i»*l4l 1 16K24W5 
0tP0Al«744<WltTl )*W54WJ 

atfnf»i, 

IF (MACH«GT,U1 go 70 100 

lOO AT£Nf» 1 •••l*Bt7AN* 1 1 #47 AN ( 54PWL6 1 / ( I l40SPNt) ) 

IF IATI:NF*LT«0*1 ATfcMr*V* 
llO nNA$HRU»'^l»EP^l4A7FNF 

IF (ONASHRUfKl.OT.ALCAMl 0*(ASMM I , K J • Al t AH 
IF IOHASHRI 0NA5HR( I*M«0* 

OHASH( Itm»nWA>HR( 1»K)*RA0 
DEP0A-0ep0Al*A7C:N^ 

CEPS«CUS(0MASHR( 1*K)) 

C 

C M0RII0N7AL TAIL CALCUL Al IONS. 

C 

IF (SH08,tU«0»0) GU TO 140 
ALPHAM»AL8»0WASHR( I tK)4l 7/RAU 
ALFAHOaALR4l7/RAD 
TAHDRaTANi ALFAHO) 

SAHaSlN(ALPHAH) 

CAHaCoS(ALpHAH) 

TAHaTAN(ALPHAH) 

IF (TAH,EO«X*i;> TAH»o*OOl 
FISHaU.SAH4SAH/2. 

X5aARH/r ARH42. ) 

X4ap|24CS^*CEP^ 

IF (2( l•K)•GT•4) GO TO 120 
C 

C SUBSONIC LEADING FOGt 

C 

X5a2,4SAF»A44f2,4CAM*f.AM»4,4SAH*5AH*3,4SAM4SAH*CAM*CAH 

CLMI I .K 1 a ( ( CPHXS4 1 • ) > *SAM*t AH4CAH*F I SH*X 3*X44SHU5N 
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LO 

OO 


1^300 
1S400 
15S00 
13600 
13700 
13S00 
13900 
16000 
16100 
16200 
16300 
16400 
16300 
16600 
16^700 
16800 
16900 
17000 
17100 
11200 
17300 
17400 
17300 
17600 
17700 
17800 
17900 
1 8000 
18100 
18200 
18300 
18400 
18300 
18600 
18700 
18800 
1 8900 
19000 


C 

C 

C 

C 


C0M( I*K1»ABS<CLH( 

CLAI-HR»SMUSW*CAM*X3*X4*X3/2, 

CtAFMT .CtAf MR/RAO 
60 TO 140 

SOPFRSONIC leading EDGE 

120 Xl»l ARW42* )/<ARH42* 1 

X2bARH«A 1 *CSM/ ( 4R W4C0S < Si<pN > ) 

P*SH0SW*X2 

(ALR.EO.O.O) Al 8»0*00l 
CLHI I *K 1 .CtW II tK ) ♦F4CEP3*ALPHAH/AtR 
IF (som.le» 30.) r,n lo 130 

IF CFMAZ6.lt. 0.4) FHAZ6-0.4 
CLHCI,KI«CLH(I»X)*FHAZ6 
130 COM! I.K )»ABSlf.LH| IfX)*lAHnR» 

IF^nSOW^^Ttsot l^ANO.c alpha. ^T ,24.) ) CLAFHT .CLAl^HT^FHAZb 

Cl AFHR»CL^Am4RA0 


PITCHING moment aROOT T^fc CENTER OF GRaVUT* 
AND static lONGiTUUlMAL STA0IUTT. STM 

140 V1«C8ARM4CA 

If lzn*«t»*LE.31 Y2»CLW( UA)-CLO 

IF fZn.lO.EO.4) Y2.CLWn.Xl-CL0*FCFXN 
IF (2II.R1.0E.3) V2«CLwn»A» 

V3«rLH| IfRl^LE/Vl 
FMt*»FLFXA(XCG»XFKT > 

Y4».FHFX-tHAR 

ONMTR.CI.ALFA^CL Af Ht ♦ | I .-OFPOA ) 

IF IONMTR.EC.0.0) ONMTR-O.OOl 
IF lIXCn.FO.Ol '»fl TO ISO 
IF (ZM.XI.NE.4) GO TO iso 
IF (TRW.GE.I.u) TRM».999 
XCT.Xf./TRM^ARM* (l,»TRM)*TniF/|4,*TRw) 


CH 


I 


iRlMOGi 

19100 
19200 
19300 
19400 
19900 
19600 
19700 
19900 
19900 
20000 
20100 
20200 
20100 
20400 
20900 
20600 
20700 
20H00 
2O9O0 
21000 
21100 
21200 
21300 
21400 
21900 
21600 
21700 
21800 
21900 
22000 
22100 
22200 
22300 
? ?40U 
^ ^00 
22600 
22 TOO 
22«00 
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C 

C 

C 


C 

C 


VI IM.9PANW*(2.9XcT*TRM*XC)/(6.*(ACT*TRW4XC1 ) 

Y2S* SP I 2 I 1 • *XC T)4( i*"XC| )/ (6**1 THw*( 1* »XC Tl + ll^^XC))) 

AUOS«2**XC/l l**Tp»»)-AftM*TWll/^* ^ ^ 

XCLlH«(XC-VLI^*TOlf^/CROOTl/( l**Yl. IM*( 1 ,-T«W)*2*/S**ANW) 
CVUH»c900T»2**VL*>^*C*100T*( 1*-TR9»/SPANW 

UtLXL*CBAR«/4**lY»AR«VLl»0*TAN(b6p6Lfc J«l;0«XCLlH*CVLlM/2* 

CMOAl • ( ALOS*Uf LXt t^HfeX 1 *CPt I H/CBARW 

CV2*CBOOT»2**V2S*C100T* ( I *«TRt» ) /iP^NW 

XC2-I XC«V2i*f0lf /CROOT > / ( 1 *-2**V2S*( I -TR- ) /SPANW > 

A20S« l.-2**XC/(l •♦»««> 

V9«FMEX*EL. 

CRt*(CLM/ll*4PLFX)»CLB0>*v9/tl 

Of LXl«XC*CROOl*V25»*> AN( ^HK )+CV2*( 1 .•XC21/3# 

0ELX2*t0»C8ARW/4*»VBAR*l AN( SWP»<Lt ) *0^1 X 1 

CMU2«CP2*A209*OElX2/CRAKM 

CMUS*rMUAL4CMV2 

C*3( I tX 1 •C^Oi I )*CMUS*CBL“V3*CBNUSk ( 1 »K > 

CMCL( I tXl*( ICtALpA/C l**PLf X)-0LMU)*v9*Lt*CLAFH1*| 1*-0FPUA> )/ 

1 (Vl*nN»»TR ) 

GO To 160 

190 CH( I,IU«CMU| I )*V2*V4/( Vl*( i**FLtX» |•V3♦CM^iUSfc( 

IF C alphas. GT* 29,UR*CI ALFA. Lfc.O, » GO TO 160 

CHCL ( I #X 1 • ( V4*CLaL>A/ ( l#*FLE* ) -I L*CLAFM!*t l*-nFPOA) > / (71*nNHTR 1 
160 STN( I*K)«»CNCi I I*X) 

Rt TURN 

170 IF (CLWI I*X >*F0,O**OR.iTR 1M( 1 »*F«,0) RETURN 
IF (Al PHA5».GT.29.0R*ClAl-FA*Lk*0.) GO TU IhU 

TRIM aT C"NSTaHT lift COEFFICIENT | A>- PHa LL 2 '> f)EG> 


nCLTRnfK)*CM(I.X»/»LF/Tl-STHnfXn 

OAl TR(l *K 1*«0CLTR( I.K)/(ClAl FA*CLAFH|*( l,-UFPf)A) I 
IF C AH9(UALTR I I tK ) 1 *GT , 19* ) UO Tu 16U 
IF (CLAFHK*E0.0.0> CLAFHR-0.001 
nFLHR»nCLTRI I*X»/CLAFHR 
G»» TO 190 

THIH AT CONSTANT ANG( F Of ATTACK (ALPHA GT 29 UEG) 
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22900 

23000 

23100 

23200 

23300 

23400 

23300 

23600 

23700 

23800 

23900 

24000 

24100 

24200 

24300 

24400 

24500 

24600 

24700 

24800 

24900 

25000 

23100 

25200 

25300 

25400 

25500 

25600 

25700 

25800 

25900 

26000 

26100 

26200 

20300 

26400 

26500 

26600 


C 

180 DALTRI 1 (KlvO* 

OCLTRI 1«K )•€**( I *K )«Y1 /Lfc 
0ELHR»DCLTR( 1*K1/ICEPS*CLAFHR) 

c 

190 DELHI I*K|«06tHR*RAO 
Ai pha*alpha*oaltr n 1 

ALFTrI IfKUALPHA 
ALR«A4 PHA/RAP 
$AaSlN|AL<4 ) 

CA«COS(ALP ) 

?A«TAN(ALK) 

7C0N«40*/PAn 
ABAGsABS ( ALPMAH* nELHR ) 

IP (ARAG«LS.TCON| GO T(j 200 
ABAGaTCON 

DELHR»TCOH*neLH| I ♦!() /AB5( DELHI I fK) )»Al-PHAH 
DELHI I *K )»OELHR*rAD 
200 ALRHTn»ALPtOELHP4.I T/RAD 
TAHTd»TANI AlRHTD) 

If IALPHA5,Gl*25,OR*0ALlRII**‘>J*t«,O#) Gu >0 220 
C 

C 7R|M DRAG AT CUNSTAHT CL (ALPHA LE 25 '»EG) 

CDTB1«| (CLHI I »K I^DCLTR | I *K > )**2-CLH( I #K l*CLH( I ) ) /SpAH 
C0TH?«0CLTR( ltK)*f AHTD 

C0TB3«|CLM( If»0*CLt«l ItKl-lCLWl l»M40CLl«C I*K) ) **2 ) / < P I 4ARw ) 
CDTU4»-0C4 TRI I *K )*TA**DEXP 

IE (AlEl J*tO,l*OR*Zn»K)*GT.2) GO TO 210 
DCOTRI I*lO«(COTni*COTB3)*f IPlM 
GO TO 240 

210 OCUTkl I*K>»C0TB4*Ct>TH2 
GO To 240 
C 

c TRIH DRAG AT C^^JSTA^^7 A^Gl F Of ATTACK (ALPHA Gl 25 Of G ) 

t 

220 ZOUMi«Cl H( I»K)4Drl TR(1,K)/CEP'> 

CnTAls|ZN0Ml*ZNOMl»CLH| lfKl*CLH( ItK) )/SPAH 


TRlMDGi 

26TOO 

26800 

26900 

27000 

27100 

27200 

27JOO 

27400 
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230 

?<»0 


IF (ALeiJ*t0.U0R,Zn»K),GT,2) (.U lU 230 
0C0TR( ItK)»CDTAl4M81M 
GO TO 2^0 

DC0^R(I»K>»0CI TR(ItK»*TAHTD 

IF ( ITRIM( I ),f0,l » „ 

IF ( !TR|8( n*K*,0) DEI H( ItK)»0.0 

return 

END 


o o 

^ w 

si 

Si 
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100 SUBROUTINE PLOT (NPLOT) 

200 C 

lOQ C PLOT program TO pRlN? VS ALPHA ANO CL VS CO UN AN OUTPUT PILE 

400 C 

400 C NEW VERSION CREATED ON 5/19 / ^6 

600 C 

700 COMMON /OISPLV/ LDlSP(6)t001SP(4),TlTLE(l4)»PPLUT 

BOO COMMON /EWING/ CL W ( 20t 2o > ♦ Cf>“ ' 20» 20 > »CLWU ( 20t 20 ) • CLWL ( 20 1 20 ) t 

900 lCOSFPl20»20l»CLO,OL(20*20>*GLALEl20*20>*CMU(20)fCOU<20)»Cl M*cl MU* 

1000 20LMUfCPLlM*CP2*CPMXS 

1100 COMMON /FTOTaL/ CL < 20* 20 ) * COL ( 20* 20 > 

1200 COMMON / 9 OSE/ B0mAX*ASECT*APLAn*XLn*CLn<20*20) *CDN(20*20) ♦ 

1 300 ICMNUSP ( 20* 20 I * XLB * CLUB ( 20 ) * CMOU ( do ) *0008 ( 20 ) 

1400 COMMON /TAu; SH(iR * SHOSW * XOHUR * yHOR *Cl H ( 20t 2o ) • CDH ( 2o* 20 ) * SOM* ARM * 

1500 1ALPTR(20,20I 

1600 COMMON /PLOW/ SMn ( 20 ) *NSHN *RNLUC ( 20 ) * 1 6 A * 1 6B * I6C * 2 ( 20 * 2U ) * AHC 

1700 COMMON /TRIM/ CL I * CLT * I *KAV *LL * ALPhA *UCO I R ( 20* 20 ) *OALTR ( 20 * 20 ) * 

1800 ICM(20*20»*OCLTR(20*20) *CHCL<20*20) ,ETRIM,XCtCflARW*VBAR*XC(,*CLALF A* 

1900 2IT,0EXP*LF*LT,En, I T« I M ( 2o ) ♦ RE f AM* SA ♦ CA * CEXN* 1 XCU* I FLEX * ICOU 

2000 DIMENSION WL 1ST ( 6 l> *Ul I ST ( 6 1 » *PL I ST ( lUl > *01 SLST ( 7 I *UVAL( 6 ) * 

2100 IPVALIll) 

2200 integer OUISP*PPinT 

2300 DATA WL I ST *BL I ST ,PL I ST *0 1 SLST /2234 IM * IHH* IMN* IHL * IHU* IHW ♦ 1H| * iHS/ 

2400 data PiUS*BLANK»AST*EYE/lH4*lH *1H**1HI/ 

2500 C,,«,,SX 1 P To TUP OE PAGE* PRINT PLOT NumHeR IN UPPER RIGHT HAND 

2600 C corner oE PAGE 

2700 write (6*450) NPl<)T 

2800 C,,,**FIN 0 MAX* LIFT CoFEF, (ClmAX>* mAx* DRAG CUEFF* (COMAxI* M|N, CM 

2900 C COFFF* (CMMIN) AND MAX* CM COEFF . (CMMAX) 

3000 ClMAX*0,0 

3100 CnHAX*0.0 

3200 CMMTN»lft*0 

3300 CMMAX««IO*0 

3400 Un 20 16*I6A* I6B, T6C 

3500 K«( I6-I6Al/T6C^1 

3600 C( MAX«AMAXl(CLU,x )*CLMAX) 

3700 COHAXbAMAXI (COL( I *X ) ♦COWAX ) 

iHOO CHHiNsAMINl (CM( I ,K ) tCMMlN) 



PLUli 
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OJ 


3900 
9000 
*100 
4200 
4300 
4400 
4500 
4600 
4700 
4«00 
4900 
5000 
5100 
5200 
5300 
5400 
5500 
5600 
5700 
5800 
5900 
6000 
6100 
6200 
6300 
6400 
6500 
6600 
6?00 
6800 
6900 
7000 
7100 
7200 
7 300 
7400 
7500 
7600 


20 


CDMAx 

CLIFPFS. 


CWMAX.AH4Xl(CMCI,K)fCHMAX) 

CONflNUF 

»0ET6ftMlNf SCALE (SCALE) FOR 
PLOT ) 

SCAl«*60, 

IF ( . SCALE»30* 

IF (CLHAX»6T*1 *4) sCALt»2j;# 

IF (CLMAX*GT,2*n SCALF*15* 

IF <CiR 4 X»&I» 2 « 8 > SCALE" 12 * 

.DETERMINE SCALE (OSCAIE) FUR 
(TOT. LIFT COFFF. V$ DRAG 
OSCALF"500. 

|F (cnMAX*(iT,.12| 0SCALE"200* 

( COMAX. GT,. 30) 0SCALE"100. 

( C0NAX*GT#.6 ) 0SCALE"5O. 
(COMAX.GT.1.2) OSCALE«6 o *<**8 
(COMAX. GT, 1.8) DSCAL6"25. 
(COMAX.OT.2.4) UbCALt"20. 

(CDMAXtOT f3« ) OSCALt^lO# 

.OETERMINC RANGE qF CM» CALCULATE FACTOR 

RANGE"CMMAX«CMMIN 
FACT0R"10.0 
IF ( rAMCE .O t .0. 1 ) 

( range .OT. 0.2) 

(range. OT. 0.5) 

( R ANGE .GT .1.0) 

( range .GT . 1.5) 

(RANGE.GT.2.0) 

,tfst for negative 

IF (CMMAX.GT.O.O) 

ISCLF2»«500 
IF (CMMIN.lt. -©.S i 
IF (CMMIN.lt . 0* 

IF (CMM1N.LT.-1.5) 

IF (CMMIN.IT.-2.0) ,,,£.,11 

FACTllR»lOOO . /float ( IAIT$< ISCIE/) ) 

KO«1 o 1 

GO TO 70 


CLMAX (LIFT CUEFF. VS ANGLE UF AlTACX 


PLOT ) 


IF 

IF 

IF 

IF 

IF 

IF 


IF 

IF 

IF 

IF 

IF 


FACT0R"5.0 
FACToR"2.0 
FACTOR"! .0 
FACT0R"2./3. 
FACTUR"0.5 

factoR"0*2 

CMHAXT if • »CE 
GO TO 30 

ISCLF2"«1000 
ISCLE2"»!500 
TSCLF2--2000 
1SCLE2"»5000 


AXIS IS AT FAR RIGHT 



PL014 
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7700 
7800 
7900 
8000 
8100 
8200 
8300 
8400 
8500 
8800 
8700 
8800 
8900 
9000 
9100 
9200 
9500 
9400 
9500 
9600 
9700 
9800 
9900 
1 0000 
lOlOO 
10200 
10500 
10400 
10500 
10600 
10700 
lUBOO 
10900 
11000 
11100 
11200 
moo 

11400 


•••••77ST FOR POSlTlVt CM8lN» IF ♦ » tL AXIS IS AT FAR LtFT 
30 I» ( CF‘HIN*LT ,0.0» 00 TO 40 
lSCLE2aO 
FACTOR*10«0 

IF (CMmAX.OT.O,!) FACToR« 5.0 
IF (CMMAX«GT«0*2) FACTOR«2*0 
IF ICHMAX«&T,0#5) FACTl)R«l*0 
IF (CMHAX»GT,1,0) factor-2. /3. 

IF IC**MAX.GT*1»5) FACfORaO.5 
IF ICM8AX.GT,2.0) FACTOR»0.2 
K0*1 

-•••••DETERMINE MINIMOm SCALE VALUE (SCALE2>t INCREMENT (AINCR) 
r* and cl axis location < KU I 

40 IMlN.|FIXCCMMlN*iOOO, ) 

IDECRalF IX( 100 1 /factor I 

ICMHaX»1500 

tCMMlN««l5U0 

on 50 ISCLF2 »ICHmIN. ICMRAx? IOTCR 
IF f lSCLE2.r.T^IM|NJ GO TO 60 
50 CONTINUE 

60 ISCLF2«TSCLE2-IDFCR 
70 SCALE2"FLUAT( ISCl^^^^IOOO. 

ir(CHM»i(GUo!Io.*»'>.CI<"IN.L>.O.OI KO.INI(ABS<SC*Lt2l•^AC.O«.l«0.. 

I0^5)4l 

IF (PPLOT.EO^O) G« to 80 

KO«1o2*KO 

GD TO loo 

C,*.*^CALCULATE scale values for cm 
80 PVALI 1 )aSCALF2 
00 90 J2a2fll 
PVAl I J2)»PVAL< J2*l I*AI nCK 

90 continue 

GO TO 120 

100 PVAt ( 1 1 )aSCALE2 

on 110 J2*2.ll 

J3»12-J2 


PLOTi 

11900 
11600 
11700 
11800 
llOOO 
UOOO 
12100 
12200 
12)00 
12400 
12900 
12600 
12700 
12800 
12000 
1)000 
1)100 
1)200 
1))00 
1)400 
1 ) 9 0 0 
1)600 
1)700 
1)800 
1)900 

Uooo 

14100 

14200 

i^Joo 

14400 
14400 
14600 
14 7U0 
14800 
14900 
1 9000 
19100 
19200 
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PVALf)))«PVAL< ))♦! l+AINCR 
110 CONTINUE 

X,, •.•♦4768^7 PtOTS XE CL VS* UF AUaCA ANO CL VS# CO 

C»####LOOP THROUGH NOMrC* OT LINES ON PAGE 
120 00 )60 J«l«42 

C#####INSERT (♦> INTO WLIST AND OLIST fcVtRV SIXTH LINE* STARflNG 
C FIRST 

4TSST«IU«U/6»*6 
IF ( JTEST#NE#J-1| CO TO 190 
DO 1)0 K2«l*61*12 
1)0 ML1ST(K2I"PI.US 

on 140 K2"l«6l*10 

140 0LISTIK2l*PLUS , ^ 

X ##♦ #^OQR- 7M8QUCN NUMRF8 OF AnCLLS OF ATTACK 

190 00 240 I6"I6A*16R*I6C 
K»( t6*16Al/|6C4l 

C*####COHPUTE COLUMN InOLx FOR ANOLt UF ATTACK 
Rl»( |6*60)/4000tl 

IF n6B#GT.4000J K !• (IG^GO ) /«000f 1 
C,«#«#T4S7 ROIL PW07 OF CL OUE TO H0R.140NTAI TaIL 
IF CLniSPdl.EO.O) CO TU 160 

IF (ABSICLHI 1 *Kl*>CAi.E«VCR 1 •LE#.9l 1 ST 1 K 1 ) #0 1 SlST ( 1 > 

C#.#..TEST FOR PLOT OF CL DUE TO TO NOSE (N) 

160 IF (L0ISP(2)#E0#0) CQ TO 170 

IF lA8SICLNCI,K;*9CALE-VeR).Lfc#.9l WL I ST ( K D .0 1 SL5T < 2 ) 
C,####TEST FOR PLOT OF CL DUfc TO RING LOWtp SUkFACf (II 
*170 IF (LOlSPl )) •EQaOl Co TU 180 

IF (A8S(CLHUI*Kl*SCALE*VER)*Lt##9) WL I ST (K I I -U I SLST I 3 » 

C,,###TEST FOR PLOT OF CL DUE TO WING UpptR SURTACE (U) 

180 IF <LniSP(4)#EO.O) CO TO 190 ...... 

IF I A8S(CLWU| 1 ^*SCALE*VFR> •Lfc#*9) nL I S I < K 1 1 "O I SL ST ( 4 I 
C,,##.T€ST FOR PLOT OF CL HUE TO NtT WING |W) 

190 IF (LDISP(9),E0#0l CO TO 200 ... 

IF ( ABS (CLW ( I *K 1 *^CAlE»VER ) •LE # #9 1 WL I ST ( K I I •01 SLST ( 9 I 
L#####TFST FOR PLOT UF CL OUF TO TUTaL CU^iPUNINTS jT) 

*200 IF ( APS(CL( I *M*Sf *LE-VE« I •GT#*9) GO TO 240 
IF (LniSP(6)#NE,0) WLlSMKU^niSLSl <6) 


WITH 
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15300 

15400 

15SOO 

15600 

15700 

15800 

15400 

16000 

16100 

16200 

16300 

16400 

16500 

16600 

16700 

16800 

16400 

irooo 

17100 
17200 
17300 
17400 
O' 175oo 
17600 
17700 
17800 
17400 
18000 
18100 
18700 
18300 
18400 
18500 
18600 
18700 
18800 
18400 
19000 
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C.....TEST F0« PLOT OP CD DUE TO SfePARATlON (S> 

IP (00ISP(2)*E0«0> &0 TO 210 

|X«lNT(COS6P< lfKl*DSC all ♦•5000 1 )♦} 

IP nX»Ge«l.AND.lX*LE«6l ) ULIST ( IX ) "DlSlST ( 7 ) 

C. ST POP PLOT OP CO DUE TO NOSE IN» 

210 IP (OOlSPI 1 1«EO«0) CO TO 220 

IX«IWT(CONC 1,K)4oSCALE ♦•50001 )♦! 

IP ( IX»GE*UAN0«lX«LE«6l) 0L1ST( 1X)*0ISLST<2) 

C«*«»«TEST pop plot op go OOP lO “1^»6 IWl 
220 IP (OOlSPOUEQ.O) on TO 230 

|X*lNT(C0Wn»K)*oSCALE^*5OO01Ul 

IP f fX«GE*UAN0,|X«lE,6U 0L15T(1X)«0ISLST(5) 

C.,«*.TEST FOR PLOT OP LO DUE TO TOUL aIPCRaPT (T) 

230 IP ( 001 SP( 41.10,01 C»0 TO 240 

|X« I mT ( COU^ t tlLl *o^C alp ♦ •6000 1 )4 1 
IP IIX.GE*UAN0,lX.LE«6l 1 DL I ST UX ) "OI SLSI ( 6 ) 

240 continue 

C,, ..•WRITE line with SCALE VALUE EVERT SIXTH LlNf, STARTING WITH PIRbT 
IF I JTEST*E0.J»1 1 GO TO 320 
IP (J.CT.6) on To 280 

C«...«NAtTE LAOPLS POR Ll^T VS. ANGLE UP ATTaCR PLUT 
on Tn (320,330f^50*260,Zr0*33Ol. J 
250 WRITE (6f46o) | Wl 1 5T | J 2 » • J2»^5 ,6 1 ) , ( DL I ST ( J3 1 •J3» 1 #6 1 ) 

GO To 340 

260 WRITE (6t470) | WL 1 ST (J2 1 • J2»24#61 ) » ( DL 1ST ( J 3 1 • J3»l . 61 1 
GO TO 340 

270 URiTf (6f580) ( I ST < J2 1 * J2»24,61 ) , ( t>L I S T ( J3 ) , J3« I *61 ) 

GO TO 340 

280 IP (J»LT»34) go TO 330 
J3«J*38 

C,.... WRITE labels POR lIPT VS, ONAG PLOT 
GO To (290*300f 310*3301 • J3 

240 WRITE i6f490) ( WL I ST ^ J2 1 * J2« X #6 1 ) ♦ ( OL I S • ( ••♦ ) * J6* 1 ♦ 37 ) 

GO To 340 

300 WRITE (6*5001 ( WL I ST ( 12 > *12« 1 » fel I * ( OL I ST ( J4 1 • J4*l tAb 1 
GO To 340 

310 write (6*5101 (WlIST(J2)*J2»1*61 1,(01 IST(J4)*.I4»1*401 

GO TO 340 



PLOIS 
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iSO 

il #*0 


.write aVAUUt lines 
GO TO 340 

-:;iu ts 

,RE«SET LINE TO BLANKS A^O 

Wl ISTC n*4ST 
DLISTI 1 )»4$T 
on 390 J2*2ffcl 

WtlST( J2)*BLANR 
OLlST( J2I*B| ANK 
CONT INUE 

iSJIiiriu SCALE VALUES FOR INDUCED DrAG COEFFICIENT 
OVAL ( J2 T IoUfLOAT ( J2 » /OSr ALE + .OOOOl 
**ir * 7 loOoVwRTF ( UVAL |J2 ) ♦ 1 ♦<> * 

OF SIgF. iplNT PU.I number IN UPPER RIGHT HAND 

CORNER OF page 

,,LOUP^ THROUGH *NUN(iER OF LINES ON PAGE 

no 440 J»l#42 

PUS. SVEPY SIXTH t.NU ST4HT.H0 -.TH P.KS. 

JTEST«(( 

IF ( JTEST*NF*J-1 ) GO TO j90 

on 380 K?»l.lOl,lO 

PLIST(K2)»RL0S 

0 continue 

0 1)0 400 I6* I6A« 16B» |GC 

IF (PPLOTtEO.n r1«102*KI 
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22900 IF (KI.GE.UAN0.KUUE.101) Pt UMKI )»AST 

23000 400 continue 

23100 C....«WRITE LINE «ITM cU SCALE VALUE EVERY SIXTH LINE* STARTING 

23200 C with first 

23300 IF ( JTEST.NE.J*! ) GO To 410 

23400 C..... WRITE «VAUJF LINeO 

23900 CLL»FLOAT(43-J) /scale 

23600 write (6*S6U) CLL * < ^L IS^ (J2 ^ * •^2" U 101 > f C LL 

23700 00 10 420 

23800 C write ^normal LInEW 

23900 410 WRITF (6.570) ( PL I ST ( J2 ) ♦ J2« 1 * 101 ) 

24000 C.....RF-SET LINE TO BLANKS ANO diU 

24100 42o DO 430 J2»UlOl 

24200 PLIST( J2)>0LaNK 

24^300 430 CONTINUE 

24400 PLIST(Ko)"EYE 

24500 440 Continue 

24600 c..... WRITE CH AXIS. CM SCALE AND TITLE 

24700 write (6.580) ( PvAl ( J2 ) . J2» 1 ♦ 1 1 ) 

24800 RETURN 

24400 C 

25000 450 format ( !«! . T l24,4HPLriT ♦ I 3. iHA ) 

25100 A60 format ( T6, IM*. T l2. 1 7 Hl IF T COEFF IC IEnT S. i«A 1 , T Tq *6 1 A 1) 

25200 470 forma? ( T 6 . 1M*. T i9. 3HVS. . T29 . 38A1 . T 70 . 6 1 A1) 

25300 4R0 format ( T6. 1H*.Ti3* I %HANOi E UF AT TACK* T29. 38A1 ♦ T70.61A1 ) 

25400 490 format ( t6.61AUt^‘^» 3^AI .22HTOTAL LIFT CUf FF I C I fcNT ) 

25500 900 format ( T6.6I A1. T70.46A1 .3HVS. ) 

25600 510 format ( T6.61 AU T70.40A 1 » IPHUrAG COF f F I C I f N I ) 

25700 520 format I T2. F 3, 1 . 1H-.61 AI . T 70.6 1 A1 ) 

25800 5)0 format ( T6.61 A1 .TTO.61 A1) 

25900 540 format ( T2. 5H0.0.^. 20( 3*^»»4 ) ♦ T70. IMF. I 2 ( 5H-..,# ) /T6« 1H0« f 18. 

26000 1T29.2H16.T4U2H24*T53.2H32. T65.2H40* Tb9. 3H0.0.6 1 5X.F5.2) ) 

26100 550 format ( IHU T40.4MHTOT AL LIFT COtFFiCiFNT VS. PICHfNG MOMENT 

26200 UIHCOEFICIFNT . 1 124* 4 MPL 1 JT . I 3 . iHb ) 

26300 560 FURhAT ( T12.F3.1 .2X. I01Au2X*F3. 1) 

26400 570 FORMAT (TlT.lOlAl) 

26500 5Bo format ( T 1 2 , ^ I T . IH^ . lo U UH*— — — • ♦ ) ♦ 5 h O.O/HO* 

26600 11K5X.F5.2) ) 



PLOTl 

26T00 

26800 

26900 
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,.0 FOKHtT (T^.SHO.O.♦.^O(lH..»).TTOMH♦.12(>H..-..l/T6.lH0,n7.^H16, - 

lT29f2H32tT61f2M48f T!»3t2H64.Ib5»2Me0.T69.3H0,0»6(5X,»-i>,2) ) 


(NO 





VO 


I 
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100 

200 

100 

400 

500 

600 

TOO 

600 

900 

1000 

1100 

1200 

1300 

UOO 

1500 

IfeOO 

1700 

1800 

1900 

2000 

2100 

2200 

2300 

2400 

2500 

2600 

2700 

2B00 

2900 

3000 

3100 

3200 

3300 

3400 

3500 

3600 

3700 

3800 
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SUBPOUTINt BPLOT (NPLOT> 

PLOT program to pRI^T CL VS ALPHA aHO CL CO FUR 
RANGF of MAfW NUMBFRS ON AN OUTPUT FILF 

NEM VERSIUN created ON 4/26/76 


A GlVfcN 


COMMON /WING/ ARwfSP4NW.SWlNO.TRW,CROOTtCTIP»CKU5W,TCRWtTC TW,TCWP 
|1CW*SOW*SWPW*SHPwL 6*XOMAC*CSHOC*6EXT*X£X1 f FLfeX* TUIF»F InT tilkLA 
COMMON /FTOTAL/ cL<20*20)*C0L(20t20) 

COMMON /tail/ SHoR»SH0S*<*XQHUR*VHUR,CLH«20f20>»Ct)H|20*20) ,SUH«AKH 

lAl 7TR(20«20) 

COMMON /FLOW/ SMNt20)fNSMN.RNLOr(20) f l6At I6H,l6C.Z<20t20l ,AMC 
COMMON /AFOIL/ AlFLJ»XCDtSHK«RUC 

CUMMUN /trim/ Cl I *CLT* I •K*LL tALPHA#OCOTR(20»20l •0AtTR<20f 20 I ♦ 

lCNl20#20)t0CLTR(20#2O)#CMCL(20f2O) tFTR|M*xc*CBARWtVBAR»XCGfCLALFA 

2 |T,neXP*Lt»LTfE 0 # ITR|M( 20) ♦RtTAM*SAtCA»CfeXN* IXCD# IFLfcX* ICnO 
OIMFNSIDN WLIST(6n.0L|ST(6ll*0lSLSTa0)iVAL(6) 

INTFGFR MNSmN 

DATA WLTS7*0L1ST/122*1M / 

DATA OISL^T/IHI f lH2*lM3f lH4tlH5* 1H6* 1H7» IH0» lH9* IHO/ 

DATA «LANK#AST#PLUS/1H •lH*flH4/ 

C,,**»SX1P TO TUP OF PA^t* WRITF AKWt XCO AND MACH SPfcfcOS 
HNSMNmNSMN 

WRlTt (6t210) ARW*Xf 0* ( Ji *SHN( J1 ) t Jl« I » mNSMN ) 

WRITF (6f220) NPlOT 

C,,»**OfcTERM|Nt MAX. LjFT CUEFF, ( CLMAX ) AND MAX, DRAG COtFF, (CUMAX) 
ClMAx-ClIltU 
CnMAX-COLIlfl) 
on 20 I«ltNSMN 
on 20 I6«I6A,I6R, IbC 
IF ( ITRIMC I ) •Fo.O) go TU 20 
lt«nA.|6A)/l6C«l 
IF CCI n*X)*GT,CL*^A*) 

IF (CPI n*RI«GT,cnMAX) 

20 continue 

C OFTFRMINE SCAl IN(. 

RAnGE'CLMAX 


CLMAXbCU 1 «K) 
COMAX«CUU 
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3900 
♦000 
♦ 100 
♦200 
♦ 300 
♦♦00 
♦900 
♦600 
♦700 
♦800 
♦900 
9000 
9100 
9200 
9900 
9600 
9900 
9600 
9700 
9800 
9900 
6000 
6100 
6200 
6100 
♦♦00 
6900 
6600 
6700 
6800 
6900 
7000 
7100 
7200 
7100 
7400 
7900 
7600 


IF 

IF 

IF 

IF 


C, 

C 


&»* TO 90 


JO 

♦0 

90 


SCALe*60» 

IF fRANGe*Cr,»7) SCALF-30. 

IF |RAMC6«07«1*4) 9CAtF*20* 

IF (RANGE*Gt»2»l 1 SCALfc»l9* 

IF lRANGE»Gt*2*8| SCALe»12# 

OKANGFaCOMAX 
0SCALFa»00, 

IF (PRANGF*GT.*12> DSCALta20O. 

(08ANG6*G7** 1) OSCAtfealOO# 

( orange •GT«» 6) 0SCALFa90* 

C0RANGE.GT,I.2> DSCALEa60*/l.8 
( orange •CT* 1*§1 DSCALEa29* 

(DRANGE.GT.2.41 0SCALEa20» 

LOOP THROUGH NUMBER OF LINfS PER PLOT 

.tSsERT Ul’lNTO mLIST ANO ULIST EVkRV 9I*TM LINE* STARTING 
WITH FIRST 
jTESTall 1/61*6 
IF I JTEST.NF,J«1 ) 

DO 10 K2al*6l*12 
wLISTIK 21*REUS 
00 40 R2al*6l*l0 
ULISTIK21*RLUS 
VFRaFl 0AT(43«J1 
KOUNTaO 

.LOOP through number 
00 70 Ial*NSMN 
IF I ITRImU 1 •«0,0l GO TO 70 
ROUNTaXOUNTal 

•LOOP THROUGH NUMRER OF ANGLES OF ATTACK 
on 60 16al6At 168, I6C 

Ul lU 60 

Rt a ( ALFTRI I «K I *1 • 9* ,90001 1*1 

IF ( 168. GT, 4000) K I • | ALE TR M ♦A > * • T9t • SOOU 1) ♦ I 
IF (K1.GT.611 on TU 60 
WL|STIK11«0ISLST(K0»'NT 1 
iXatNT ICOl ( I ,K 1 *oSCALE ♦•SOOO l » 


OF MACH NUMBERS 


I 
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M 


7T00 IFIIX.CO.O) |X»1 

7800 IF IIX.IE-6U 01 lS1(IXJ*OlSLbT(KOUNn 

7000 CONflNUF 

• IM C..™.S27irUNt MMH SCALt V»U)t 6ve«» 4IXIM LlNfc, ST4RUNG -IIM M«S1 
8200 JTEST»U 

8 ) 00 |7 C J7tST,tO,J»n 10 ISO 

8400 IF (J«0Ta6) GO Tn 1^0 

8S00 labels for lift vs ANGLk OF ATTACK FLOl 

8800 GO TO |UO*UO*aOf90*lOOtllOJ* J ..c.a, .1 1 AH 

8700 80 write (6*230) ( 1ST ( J2 ) f J2»24*6i ) ♦ < OL I ST ( J3 ) * J3» 1 #61 ) 

8900 90 SSlTf (I?240) ( Wi I ST ( J? ) t J2-24, 61) f I DL | ST ( J 3 ) ♦ J3* 1 1 6 D 

9000 GO TO 170 ... ,, , ... 

9100 lOO WRlTt (6*2SO) ( M|,IST ( J 2 ) ♦ J2»24*6U # ir>L I ST ( J3 ) ♦ J3«l #61 ) 

9200 GO TO 170 

9) 00 no IF (J.LT.39) (iO TO UO 

9400 

9500 C WRITf ( ARFLS FUR I.IM VS PRAG PtUT 

9600 GO T(1 (120f I )0# IaO* 160 ) * J3 «fi 

9700 120 *«UTE (6#260) ( wlI ST I -)2 ) • J2«l #ol » ♦ ( l^L I S M .i4 ) ♦ J4» 1 ♦ ) 7 ) 

9900 1)0 WRITfc (6*270) ( wl I ST ( J2 ) * J2"l *6l> * ( UL I ST ( J4 ) * J4» I *45 ) 

lOlOO 140 WRIT? (6?280) ( Wl I ST ( J2 ) * J2» I *61 ) . ( DU S U J6 ) * J4- 1 , )S ) 

10200 GO TO I TO 

10) 00 C.a««*WR|Tf 9VALUE LiNft 

l?tss 

10600 GO TO 170 

10800 ^*160*WRITE (6*300) ( WL I ST ( J2 » * J2" I *61 ) • ( DL I S M J 3 ) * J3» 1 *6l) 

10900 C.,*.*RF-SFT LINE TO BlANKS ANU 
I 1000 170 WLIST ( 1 )«AST 

lllOO Ol.lST( I )»FSt 

11200 00 180 J2«2*61 

11) 00 Wl |ST( J?)«BL*?!R 

11400 OLISK J2)»8LANK 


I 
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11500 
11600 
117U0 
IIBOO 
11900 
12000 
12100 
12200 
12300 
12400 
12 SO 0 
12600 
12700 
12500 
12900 
13000 
13100 
13200 
13 300 
13400 
13SOO 
13600 
13/00 
13H00 
1 3900 
14000 
I 41 u 0 


180 

190 


200 


W6LU4S Fim INDUCtU 0KA6 tjJfcFMCE I tNl 5 


CONI INUE 
CONT iNUE 

»CALCULATE 
DO 200 J 2 “l *6 

VAL<J 21 » 10 **H 0 AT( J 2 )/nSCAl.t^^*O 0 O 01 „ . , ,t 

^pttlNT LASl ^*<0 LINES (DASN AND PLUSES ANO VALUE LlN 
FOR HoTh PLf»lS) 

IF I 16B«0l *4000) WRITE (6*i2UI ( V AL ( J2 ) » J2» 1 * 6 > 

IF I 1^.11*40001 WAUF L^lUl 4VAL(22i*U2.U61 
return 


210 

1 

220 

2 ^ 

240 

250 

260 

2/0 

280 

290 

300 

310 

1 

320 

1 


FORMAT (IM1,T2.4hAR-.*F 5.2*2»*AHXC0-.P5*3.9H OF CHORD, 2X . iMSMN. 

lO(2X*n,lH»,F4,2> * 

FORmIt Il6tliifll2”l7^iM CUEFFlC 4 EA^ 14 ^*^Ai*lT 0 ^lAl > 

(^nUMAT ^HV ^^^fTiVfiSAlfTTOiMAl) 

(T6, lH*,Tl3* 15HAN01.E OF *»1 T aCR , T 29 , 3BA1 • / TO* 6 1 A I ) 

I T6,61a1*T70*3/A1 *22hT 01 AL LlET CUEFFICIENT) 
rT6*MAl*T/<-»45Ai * 4WV • S, ) 

It6!61AI:t70,35A1,22H ORAU CUE» F 1 C 1 EnI S ) 

MJKK'jii ( |2l5H0*olI»2O< ShI.A) ♦ 1 /g* IH4* 12« 5 h— — ♦ )/T6* iMO* I 18* IHbt 

129 2Ml 4. 1 41 * 2H24* 7 53*2H32 ♦ 1 p5 *2M40* 169* 3H0 *U tP I 5A ♦ F5*2 ) 1 

FtiRMAT tT2*5M0.0-4t2O( 3H.-4) * t70*lM4* 12( 5M— -♦)/l6« IHU* 1 1 / »2Hl6» 

T29,2H32, U1*2H48»753,2H64*To5*2H80*T69.3H0,0*6(5X,F5.2) ) 

|ND 


format 

format 

format 

format 

format 

format 

format 


